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ABSTRACT 



The requirements of a Computer-Aided Learning System which would 
be a reasonable assistant to the teacher are discussed. These ideas are 
implemented in a system entitled RASCAL, a Rudimentary Adaptive System 
for Computer-Aided Learning. RASCAL replaces prepared frames used in 
previous systems with a description of questions to be asked and a tree 
of alternatives that might be helpful in assisting a student in answering 
a question. The actual questions are generated as a function of the 
system's interaction with the student, as is the selection of the branch 
to follow in aiding the student. The results obtained to date, while not 
extensive in their scope, indicate that a system such as RASCAL can be 
useful in the classroom. 
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I. INTRODUCTION 



The development of the computer in the middle of the twentieth 
century is having an effect on society comparable to that of the printing 
press five hundred years ago. In the field of education, the effect has 
been to reverse the trend of standardization started by the printing press. 
In the early 1900's educators had already begun to question the worth of 
mass education as compared to the older form of individualized or tutorial 
education practiced at Oxford and Cambridge. However, no economically 
viable way of individualizing was available. The computer offers an 
economical means to individualize instruction. Considerable research 
has been conducted in the past ten years, attempting to develop a 
computer-based system which would individualize the learning environ- 
ment. This research has collectively been entitled Computer-Assisted 
Instruction (CAI) or Computer-Aided Learning (CAL) , with the former term 
predominating . 

While many systems have been devised, CAI, to a large degree, 
remains a laboratory phenomenon. It is felt that part of the reason behind 
this is that while systems, to date, have developed a high degree of 
interaction with the student, they have little capacity, if any, to interact 
with the teacher. RASCAL is an attempt to define a more viable system by 
identifying the proper roles of the teacher and the computer in the type of 
symbiotic relationship discussed by J. C. R. Licklider. * 

^Licklider , J. C. R. , "Man-Computer Symbiosis ," IEE Transactions 
on Human Factors , HFE-1, p. 4-11, March 1960. 
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The key to this, it is felt, is the elimination of the prepared set 



of frames that is at the core of many CAI systems. This set of frames is 
inaccessible to the teacher although teachers may have been consulted 
in the preparation. To replace this set of frames, RASCAL uses a tree 
structure which is designed to approximate the steps a teacher would 
follow in assisting a student in the solution. It is intended that the 
branches of the tree be interactively constructed, either by the teacher 
or by the computer, from a broad set of alternatives given it by the 
teacher. This interactiveness is essential in any endeavor such as 
teaching, where the methods which may succeed in one case, fail in 
another and where there is no recognized body of information on how the 
endeavor is best accomplished. The ability to modify the trees does not 
imply the necessity to do so. Thus, the teacher has the choice of using 
trees previously created and stored or of creating his own to better fit 
what he thinks should be done. 

To achieve the desired relationships, RASCAL assigns certain 
responsibilities to the computer and to the teacher. The assignment of 
responsibility is discussed in detail in Section III. Briefly, the computer 
has been assigned the responsibilities of: 1) generating problems for the 

student, 2) deciding when the student is ready to proceed to more diffi- 
cult concepts, 3) presentation of instructional frames and review material, 
4) file management and manipulation, and 5) the identification of problem 
areas to the teacher. The teacher has the responsibilities of: 1) identify- 
ing to the computer the student's present state of advancement and 
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capability, 2) specifying the type of problems to be presented to the stu- 
dent and the conditions which make a problem difficult or easy, and 

t 

3) the construction of branches to be followed in assisting the student to 
answer the problem. 

RASCAL is written in Programming Language/One (PL/l). Its con- 
struction is highly modular to facilitate modifying and extending the 
system. Possible modifications and extensions are dealt with in Section V. 



7 



II. BACKGROUND 



A. DEVELOPMENT OF COMPUTER-ASSISTED INSTRUCTION 

Computer-Assisted Instruction has evolved from the concept of 
Programmed Instruction (PI) first developed by Sidney L. Pressey at Ohio 
State University in the 1920's. Unfortunately, Pressey's ideas did not 
catch on until the 1950's or sufficient data might have been available 
to make the transition of the concepts to computer-based systems easier. 

A real interest in PI did not develop until the 1950's when Dr. B. F. Skinner 
at Harvard University presented his findings on learning. Skinner ex- 
pressed concern that the present system of education delayed the rein- 
forcement of a response by so much that the learning process was 
seriously impaired. ^ 

As Skinner's ideas preceded the commercial availability of compu- 
ters, they were implemented in textual form. The Programmed Instruction 
texts of the 1950's demonstrated that, properly written, tested and admin- 
istered, they are valuable instructional aids. However, the benefits are 
not without their problems. They are problems of supervision and change. 
In addition to allowing the student the freedom to study at his own rate, 
they also allow him the freedom not to study at all. Because the answers 
must be included in the text, the student is tempted merely to quickly 



2 

Skinner, B. F. , The Technology of Teaching , p. 14-22 , Appleton- 
Century-Crofts , 1968. 
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glance through the text simply looking at those answers he does not know 



and continuing on. Thus, the student is deprived of the opportunity to 
think his way through the questions. Furthermore, he is defeating the 
intent of any branches that may be included to provide him with a better 
understanding of the material. Because the PI text is "hard copy," it 
cannot be easily changed. Thus, extensive testing must be performed 
before the text is released to print. This testing is most easily accom- 
plished under controlled conditions . Since the data is not collected in 
the environment in which the text is used, there is some question as to 
its validity. Attempting to collect this data in the environment in which 
the text is used adds to the effort required by the student in using it, 
since he must keep a diary of impressions. This only encourages the 
improper use of the text. 

The development of the computer offered a means of correcting 
these defects in Programmed Instruction. The data handling of the capa- 
city of the computer allows it: 1) to continually gather data on the text 

it is presenting and to effectively evaluate the performance of the lesson, 
and 2) to keep records on the students to monitor their progress and in- 
sure that they are studying properly. The computer's erasable memory 
(or "Type Set") allows the text to be easily changed. Furthermore, it can 
be programmed so that the student does not see the answer and is forced 
to reason it out for himself. 

Thus, the earliest CAI systems were simply PI texts implemented 
on a small computer dedicated to presenting the material to students. 
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These systems did not make use of the logical capabilities of the com- 



puter and were, therefore, somewhat restricted in their capacity to pro- 
vide individualized instruction. In addition, they proved to be rather 
expensive and were limited by the size of the computer. To provide a 
more individualized presentation and lower costs, these systems have 
given way to highly sophisticated systems, such as Socrates, which are 

implemented on large computers capable of serving hundreds of students 

3 

and handling tasks other than CAI presentation. In fact, people are 
now beginning to talk in terms of Educational Utilities. As an example 
of things to come, the U. S. Office of Education has let contracts to two 
major organizations interested in educational time-sharing. The charge 
of these contracts is to design a CAI system having 100,000 terminals 
located in a radius of 100 miles. 

B. ARGUMENTS FOR COMPUTER-ASSISTED INSTRUCTION 

The main argument for CAI is based on the partly proven, partly 
conjectured advantages of individualized instruction and the ability of 
the computer to provide this individualized instruction economically. 
Other arguments advanced by proponents of computers are mentioned in 
the succeeding paragraphs. 

The computer can collect and evaluate data about curriculum and 
learning. This will enable us to discover information which, even if 

3 

Training Research Laboratory University of Illinois, Report 12, 
Socrates, a Computer-Based Instructional System in Theory and Research, 
by L. M. Stolurow, June 1966. 
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CAI proves unfeasible, will allow us to improve our educational methods. 



Further, it will provide data on whether our present system is suitable 
for CAI implementation. 

Once sufficient data has been accumulated and learning strategies 
identified, the computer will be in the position to assess the student's 
abilities and present the learning strategy best suited to the student. 

In a mass-educational environment, the strategy selected must be the 
one which will help the greatest number of the students. 

The computer can interact with the student to a surprising degree. 
While present state-of-the-art causes the machine to sometimes penalize 
students with the right idea but the wrong words and reward students 
with the wrong idea but the right words , further developments may make 
this interaction more dynamic than can be achieved in a mass education 
environment. 

Recent studies indicate that the formalism of classrooms required 
for mass education may be detrimental to the learning process. Learning 
should be an interesting experience and the formality of the classroom too 
often makes the experience distasteful for young, inquisitive and mis- 
chievous minds. The computer offers unique capabilities for reducing 
formality in education. Computers can and have been programmed to 
teach in a game-like environment. 

The computer's responses are geared to the student, and therefore, 
provide an environment in which outside distractions do not affect the 
learning process as much as in the classroom where the student may 
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miss an important point if his mind wanders . The computer cannot 
proceed until it has the student's attention. 

The computer is gifted with infinite patience and is never bothered 
by routine drudgery. Thus, it is better suited than the conventional 
teachers for administering drill and practice sessions . 

The computer can further relieve the teacher of classroom drudgery 
by administering and grading quizzes. It can keep a record of student 
progress and assist the teacher in her lesson planning. 

C. ARGUMENTS AGAINST COMPUTER-ASSISTED INSTRUCTION 

Arguments against CAI concern themselves with the cost of CAI, 
the effectiveness of CAI and the possible adverse effects that CAI may 
have on the student. 

While it is true that CAI is expensive, (costs vary between $400/ 
student/year and $50/student/year) this does not imply that such costs 
will continue. This same argument ran rampant in the early days of 
computers when the choice was between electronics using tubes or elec- 
tronics using transistors. Transistors did in fact cost large amounts, 
but then they were as experimental as CAI systems today. The costs of 
CAI are dropping and will most likely continue to drop as the systems 
themselves become more sophisticated. 

The argument that CAI is ineffective is a generalization on the early 
failures of CAI systems and presupposes that improvements cannot or will 
not be made. However, the potentials of CAI are so great that one should 
not be willing to scrap the entire idea because of a few earlier failures. 
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There is a fear that CAI will stifle the gifted student and lead to a 



mediocrity of all students. This argument is based on the early CAI 
systems which were merely automated PI programs. These programs, 
which were written for the average student with branching used to handle 
fast or slow students, made little use of the computer's logical capa- 
bilities. Present day systems are more imaginative in their approach 
and continued sophistication will further erode the grounds under this 
argument. 

It is also feared that CAI may produce antisocial children who will 

regard the computer as infallible. It is based on recent results which 

indicate that group interaction in school may play a very important part 

in the learning process of early school children. This argument is being 

countered by the development of CAI systems which encourage student 
4 

interaction. Since children do not seem to be as impressed as their 
parents with the technology of today, there is some question as to whether 
they will come to regard the computer as infallible. However, should the 
problem arise, there is the possibility that it can be corrected by pro- 
gramming the computer to make appropriate errors. 

Furthermore, it is feared that CAI will take away the teachers' jobs. 
However, CAI systems make no pretense of their need for teacher assist- 
ance. They simply cannot handle all the possible low probability occur- 
rences. Therefore, CAI should not be looked upon as a replacement for 



4 

Byron, G. L. "Student to Student Interaction in Computer Time- 
Sharing Systems," Computers and Automation , v. 18, p. 16-19, March 1969. 
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teachers, but as a supplement which, working together with the teacher, 
will provide for better teaching than is presently possible. 

D. CLASSIFICATION OF CAI SYSTEMS 

Computer-Assisted Instruction systems are classified into three 
major categories according to the intent of the system. The simplest 
type of system is the Drill and Practice. This type of system merely 
supplements the teacher. Questions are asked to the student, and if 
answered incorrectly, the correct answer is supplied. However, no 
attempt is made to identify or correct the error in understanding that 
caused the incorrect response to be given. It is the most superficial 
and accordingly the most developed and economical. However, the 
value of this type of system should not be underestimated. Many types 
of problems fall into a category which requires extensive practice to 
learn the basic algorithms with speed and accuracy. In these areas. 

Drill and Practice systems have been shown to be effective. 

At the next higher level of interaction is the Tutorial system. This 
type of system is designed to take over, from the teacher, the main 
responsibility for instruction. It improves upon the Drill and Practice 
system in that remedial aid is presented when a problem is incorrectly 
answered. In addition, it attempts to provide the student with an under- 
standing of the ideas for which the problems are providing practice. This 
type of system exists, but in general, is not sufficiently sophisticated to 
fulfill its objective entirely. However, it can relieve the teacher of the 
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burden of teaching thirty students at once. This allows her more freedom 



to handle the individual cases where the computer fails. 

The system with the highest level of machine responsibility is the 
Dialogue type. This type of system exists only as elementary prototypes, 
but provides the deepest level of interaction between the student and the 
computer. These types of programs represent the apex of Computer- 
Assisted Instruction systems. This type of system is not dependent upon 
the presentation of problems to determine where the student lacks under- 
standing . It is designed to converse directly with the student, allowing 
the student to identify his problems. Ideally, the student would be able 
to ask any question on a given subject matter and the computer would be 
able to provide a satisfactory answer. 

Computer-Assisted Instruction systems may also be classed accord- 
ing to their method of presenting material to the student. Figure 1 indi- 
cates the possible flow of a lesson in the most common methods of 
presentation. The earliest systems used a "linear" approach. The 
material was divided into a series of frames which were presented one at 
a time in a predescribed order. All frames were shown to each student. 

If the student failed to respond correctly to the material in a frame, he 
was simply given the correct response and the next frame was presented. 
A little more sophisticated are those systems which use a "simple 
branching" approach. Certain frames are designed to test the student's 
understanding of the subject being presented. If the student's answer 
indicates he has sufficiently grasped the idea, he is allowed to skip 
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a) Linear presentation 



Advance 




Repeat 

b) Simple Branching presentation 




c) Complex Branching presentation 



FIGURE 1 
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d) Multi-level Complex Branching presentation 



FIGURE 1 






ahead to the frame beginning the presentation of the next idea instead 
of continuing to the succeeding frame in the sequence which is designed 
to provide more practice with the same idea. Or if he has missed the 
idea completely, he may be returned to a previous frame to repeat the 
material. "Complex branching" systems not only allow the student to 
skip over frames, but also provide branches which allow the smarter or 
more interested student to go deeper into a subject, and branches which 
present remedial material to the student who is having trouble. The most 
complex type of system, based on this prepared frame idea, might be 
called "multi-level complex branching." This system is a "complex 
branching" system with a choice of paths at each node. Thus, if a stu- 
dent is having trouble and the first remedial presentation does not help, 
the machine can make a second attempt using different material. Also 
branches are provided within the branches which allow for further choice 
as to how the material is to be presented. 

A system recently proposed, which appears to offer considerable 
advantage over the prepared frame system described above, is one in 
which the frames are replaced by a format of the questions to be asked, 
and the computer generates the actual questions as a function of the 
individual student's responses to questions presented to him.^ As an 
extension to this type of system, the computer could also select remedial 
aids and advanced material for presentation to the student, from a set of 

5 Uhr, L. , 24th Conference Proceedings of the Association for Com - 
puting Machinery , "Teaching Machine Programs that Generate Problems 
as a Function of Interaction with Students," p. 125-134, 1969. 
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such items given it, based on past experience with students who have 
responded in a similar manner. As an intermediate step in the construc- 
tion of such a system, the remedial aids and advanced material might be 
given to the computer with an indication of when they are applicable. 

The computer could then construct Trees from these descriptions, 
select branches in the Trees, based on the student's response, and 
present the required material to the student. The development of this 
intermediate type of system was the goal in the construction of RASCAL. 

E. PROBLEMS WITH COMPUTER ASSISTED-INSTRUCTION 

At the root of the arguments against CAI is the fact that CAI has 
not developed at the rate envisioned for it. This is a result of under- 
estimating the amount of time it would take to solve problems which of 
themselves are major areas of endeavor in the computer field. 

First and foremost among these is the "natural language" problem. 
While many "question-answering" systems exist for limited subsets of 
English, there still exists no way for computers to understand precisely 
what questions have been asked them on a broad basis. 

A second problem, particularly important to the elementary student, • 
is the problem of oral language recognition. It is an accepted fact that 
smaller children have more trouble grasping concepts explained in writing 
than those explained orally. Similarly, they have more trouble expressing 
themselves in writing. Thus, a system with oral capability in both 
directions would be of immense value. 
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There exists no recognized body of fundamental theory about learning 
and retention. This makes it difficult to design a curriculum of study or 
to determine the best choice of a branch in reply to a given response. 

Thus, curriculum planning and course programming are done on a prag- 
matic basis, using methods which have given an indication of success 
in the past, but are not assured of success in the future. This may, in 
part, account for the unimpressive results in some studies comparing CAI 
with conventional methods. 

Another problem and one where several approaches have been taken 
to solve it, is the familiar problem of communication between two very 
different disciplines. The people who are developing the systems are 
computer specialists, while the people who have the knowledge of curri- 
culum and learning are educators. The problem of the one conveying his 
ideas to the other arises. This is no small problem since they speak 
different languages. The earliest method of solution was to form teams 
of educators and programmers to work side by side. A more sophisticated 
approach has been to construct languages in which the educators may 
construct their own CAI programs without the aid of a programmer. Every- 
one has had his own ideas as to what capabilities these languages should 
embody. As a result, there are some thirty different types on the market, 
e.g. , Coursewriter by IBM and PLANIT by CDC. In the absence of a 
natural language recognizer, these languages probably are still too 
restricted for the average educator to ever desire to use. Unless a pro- 
posed change makes it readily apparent to the user, its value in making 
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his job easier, he will have nothing to do with it. The languages avail- 
able to date do not show this feature. 
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III. FACTORS IN DESIGN 



The intent of any CAI system must be to provide an inexpensive 
and effective aid to the teacher. To accomplish this goal, it seems 
necessary to identify the functions performed by a teacher in his job and 
the knowledge he requires to perform these functions . Only then would 
one be in a position to surmise which elements of teaching the computer 
would be able to handle, and to construct a system in which the computer 
would handle these elements. 

A. IDENTIFICATION OF CRITICAL ELEMENTS 

To describe the elements of a teacher's job as supervisory and 
tutorial is a gross over-simplification of the problem, but it does serve 
to warn that the teacher will remain a part of the system at least in lower 
grades. Present day computers would be of little value in supervising 
thirty elementary students. Since the teacher is available, it seems 
advisable to make use of his knowledge in the system. 

The tutorial side may be broken down into the elements: 1) explain- 
ing the idea, 2) providing practice to show how the idea may be used, 

3) testing for acquisition of the idea by the student, 4) identifying prob- 
lems that may be occurring in the acquisition, and 5) reexplaining the 
idea in a different manner. The cycle then starts over at #2 and repeats 
until successful acquisition occurs or the teacher must move on to the 
next major idea because of time restrictions on a course or the majority 
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of the students are ready to move ahead. A prime justification for any 
CAI system would be its ability to eliminate the movement ahead due to 
the latter two reasons. 

The explanation of a new idea consists of introducing the vocabulary 
of the idea, explaining the relationships between the new idea and ideas 
previously taught, an indication of the context in which the idea is appli- 
cable, and examples of how the idea may be applied. The student then 
generalizes upon the idea so that he is able to distinguish in most of the 
cases when to use it. 

The purpose of practice is to reinforce the student's generalizing 
mechanisms. The teacher must have knowledge of and supply problems 
to which the idea is applicable and which best demonstrate the variety 
of applications in which the idea may be applied. 

The purpose of testing is to insure that the student has generalized 
upon an idea properly and has adequately grasped the relationship of the 
idea to other ideas. In preparing a test, the teacher must have a know- 
ledge of questions which are discriminating, i.e. , not all so easy every- 
body gets them right or so difficult that nobody gets them right, and which 
will identify the errors in generalizing and relationships the student may 
make . 

The teacher must have worked the problem beforehand and know the 
answer. He can then compare his sequence of steps with those taken by 
the student and see where they diverge. In most cases, the sequences 
will diverge at points anticipated by the teacher based on prior experience 
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in which case he will know why the student took the incorrect step and 
be able to remedy the misconception. Occasionally, though, the teacher 
must ask the student why he took the step he did. In this case, correction 
is not as simple. The teacher must do some generalizing on his own to 
determine how this particular mistake relates to other mistakes he has 
encountered. Errors do not provide the only clue to student misunder- 
standing. The amount of time it requires for the student to answer a 
question is also indicative of a weakness. 

Teachers, through experience, develop a "bag of tricks" which 
enable them to correct student misunderstanding. The choice of trick to 
use depends on the prior success or failure of a particular trick in cor- 
recting similar errors in the past. When more than one "trick" will 
apparently fill the bill, the choice as to which to use rests upon the 
teacher's knowledge of the student's abilities and prior experience. 

As suggested in the previous discussion, the teacher does not step 
into his first classroom with a complete knowledge of what to do, although 
an outsider might obtain that impression without knowledge of the behind- 
the-scenes activities. Good teachers must prepare lessons in which the 
objective is clear and the method interesting, thorough and flexible. 

Each lesson should be evaluated by the teacher to see if his objective 
was reached, and if not, find the reason why it was not reached. 

To help the teacher in preparing, the teacher's edition of a text 
usually states the objectives of the lesson and suggests methods by 
which the objectives may be met. It provides practice problems and 
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explains major problems that may arise and sometimes suggests the tools 



that may be used to correct these problems in understanding. As the 
teacher's experience grows, he develops his own methods as to what to 
do when certain errors occur. He also develops a better understanding 
of what problems are encountered. 

B. SYSTEM RESPONSIBILITIES 

It was decided that to be an effective aid to the teacher, a CAI 
system should be able to perform all of the functions discussed above. 
However, since such a system is going to be a beginning teacher, in 
comparison to the actual teacher, it was deemed allowable to give the 
teacher the responsibility of providing the same information to the system 
which he is given in the teacher's manual or has knowledge of from past 
experience. However, the amount of time and effort required of the 
teacher should not become burdensome, either in the time spent training 
the computer or learning technicalities. To keep this time at a minimum, 
it was necessary to add a third partner to the system, namely, a program- 
mer. In the system visualized, the interactions and responsibilities dis- 
cussed below are necessary for successful operation. 

1 . The Teacher's Role 

Pending a major breakthrough in the field of Artificial Intelli- 
gence, the teacher must maintain the dominant role in the system. He is 
the storehouse of knowledge and experience to which the computer must 
turn for assistance. 
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The teacher must provide the computer with his knowledge 
of the kind of problems that may be encountered in the learning of a parti- 
cular idea. He must, at the same time, provide the computer with some 
knowledge of the remedial measures to take after the problems occur. 

This information may either be given in direct cause and effect form, i.e. , 
if the student makes this error then do this, or it may only be a list of 
possible methods to use when errors occur in the presentation of an idea. 
In the latter case, the computer must be able to recall which methods 
have previously worked in similar situations and make a selection of 
which method it feels will work in this case. The teacher is not infallible, 
thus the computer must be able to indicate when a particular trick does 
not work and either try one of its own or request another idea. 

The teacher must indicate to the computer what questions are 
best suited for instilling the idea to be taught. This is not simply a 
matter of giving the form of the question. It must include some indica- 
tion as to the conditions which determine the difficulty of the question, 
if the computer is to make effective use of the information contained in 
the student's response. Win ether the conditions are specifically stated 
to the computer or deduced by the computer from examples is a matter 
of choice and programming, but they must be obtained. 

It is the teacher's responsibility to see that the student is 
able to understand the material that is being presented. He may either 
do this by presenting the idea initially and familiarizing the student with 
the types of questions before the computer takes over. This method, 
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however, restricts the tutorial ability of the computer in an area where it 
appears it can be of use. The other alternative is to supply information 
to the computer on how to present the idea initially. Lesson frames may 
be prepared beforehand and the computer can construct examples from the 
problem descriptions to show the student the steps which should be 
followed to obtain an answer. If the computer does the presentation, one 
must make certain that the means it has available to make the presenta- 
tion are suitable to the student's level. 

The teacher must be ready to provide assistance when the 
computer fails in getting an idea across. To build a system that would 
handle all possible situations that might arise would only increase the 
costs disproportionately to the number of students helped by adding to the 
system means to handle the situations which occur infrequently. Since 
the computer has relieved the teacher of checking up on all students, his 
time should be devoted to the cases with which the computer is having 
trouble. 

In order for the computer to interact properly with the student, 
the computer needs to know the student's level and foreseen capabilities. 
The computer will form its own conjectures as it works with the student, 
but this information is required at the start of the student's first lesson. 

It seems a simpler matter to have the teacher supply the information than 
for the computer to test each child and make an evaluation before begin- 
ning the first lesson. Further, the teacher may desire to modify the com- 
puter's conjectures and should have the ability to do so. 
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2 . 



The Computer's Role 



The prime functions assigned the computer are generating 
problems and presenting them to the student, identifying errors and pro- 
viding proper remedial material, and deciding when a student is ready to 
advance . 

The computer must be capable of generating questions as a 
function of its interaction with the student. It must adjust the difficulty 
of the question to the readiness of the student who is to answer it. 
Furthermore, the questions should be generated in a random fashion so 
that each student is provided with a different sequence. The type of 
problem it generates is the responsibility jointly of the teacher and the 
computer. The teacher must provide the form of the problem, but it is 
the job of the computer to decide if the problem is commensurate with the 
student's ability. Once the computer is aware of the student's level of 
achievement, it must decide if the problem it is preparing to ask is a 
hard problem or an easy problem. Most teachers begin by asking the 
student easy questions until he has gained sufficient confidence and then 
increase the level of difficulty. 

There are apparently two ways to approach the generation of 
a question of a particular degree of difficulty once the conditions govern- 
ing the difficultness are known. Either the machine can generate a prob- 
lem and then apply the conditions to determine if the problem meets them. 
If the problem does not, it can either be stored or thrown away and another 
problem generated. This process continues until a problem of the right 
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difficulty is generated. The problem here is that in a random generation, 
most questions generated will be of medium difficulty. It may require 
several attempts to produce an easy problem or a hard problem. The 
second method is to have the computer decide how difficult a problem is 
desired and then to apply the conditions during the generation of the 
problem. The problem here is that applying the conditions during the 
generation of a question is more difficult than simply testing a question 
to see if it meets the conditions. It is not clear whether the extra time 
spent is more or less than the time spent waiting for a question of the 
right difficulty to occur. 

Since it is necessary for the computer to generate an answer 

to any problem it creates, it seems logical that it be able to use this 

answer to identify the error made by the student. If the program produces 

its answer in the same manner as the student produced his, it is then in 

the unique position of being able to compare the student's steps with its 

own to determine where the student went astray. In this respect, the 

system is acting much like a theorem-prover , that is moving down a tree 

of legitimate deductions from a point where the student and the computer 

0 

agreed to some new conclusion where they differ. Once the problem is 
identified, it is a simpler matter to select a method of providing remedial 
assistance. Either the computer can use a method it has been told to use 

^Uhr, L. , 24th Conference Proceedings of the Association for Com - 
puting Machinery , "Teaching Machines that Generate Problems as a 
Function of Interaction with Students," p. 128, 1969. 
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when this occurs, or it can generalize and use a method its experience 

7 

has shown to work before or that has worked in a similar situation. 

The mechanism for deciding when a student should advance 
must allow sufficient questions to be asked to insure that the student has 
gained enough proficiency in the idea being presented to be able to com- 
prehend the next idea. At the same time, it must not ask too many ques- 
tions, least the student become bored. If this occurs, one of the main 
arguments for the system -- namely , its ability to make learning a more 
interesting experience — will be lost. The situation is further complicated 
by the fact that in some instances a student who was slow to catch on to 
the last idea because it was not presented properly or for some other 
reason, may catch on very rapidly to the idea now being presented. 
Therefore, if the mechanism for deciding when to proceed is dependent 
upon a student's apparent rate of comprehension, we must make sure that 
the method for determining this rate of comprehension is dynamic. In 
later grades , this problem may be reduced by allowing the student some 
responsibility as to the manner in which he progresses from idea to idea. 

In earlier grades where practice is essential, it has been suggested that 
this matter may be of lesser importance because generally students enjoy 
doing what they can do and would not become bored. However, it is felt 
that this mechanism must have some dynamic quality, else why bother to 
individualize instruction. The smarter student may be content to show 
his prowess and the slower student just as happy to move on to "some- 
thing else. 

7 Ibid. 
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3. 



The Programmer's Role 



Educationally speaking, the role of the programmer is minor. 
Functionally speaking, it is of major importance. His is the responsi- 
bility of seeing to it that the files established contain all the information 
required for making meaningful reports to the teacher and all the informa- 
tion utilized by the computer in its decision making. He is also respon- 
sible for creating the computer's library of "tricks" based on the teacher's 
recommendations of the remedial methods required in a particular course. 

4 . Interface between Teacher and Programmer 

The teacher has the job of initiating communications across 
this interface by making his needs known to the programmer. In the type 
of system visualized, the programmer would not be a part of arranging the 
learning sequences. This, hopefully, will ease the communication prob- 
lem discussed earlier. 

5 . Interface between Teacher and Computer 

In the relationship between the teacher and computer, it is 
the computer which must take the responsibility for successful communi- 
cation if it is expected that the system will not add to the burden of the 
teacher. 

Essentially, this means the computer must be able to communi- 
cate with the teacher in the teacher's own language. Although some effort 
is required in well-structured subjects such as mathematics and the 
sciences, this is a solvable problem since these subjects have a language 
all their own. Simmons discussed several natural language systems. 
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CARPS by Charniak and STUDENT by Borrow have application in the sub- 

g 

ject we are discussing. Uhr suggests that the same may also be true 

in the teaching of foreign languages, although the problem is not as 
9 

clear cut. In subjects such as arts and history, where the language 
used is much greater in size and scope, the picture is even less clear. 

Failure to provide a natural means for the teacher to con- 
verse with the computer requires that the computer prompt the teacher 
for the information it desires. As the teacher gains experience with the 
information that the computer needs and the format in which it is to be 
delivered, the prompting mechanisms will probably become an odious 
delay in getting the information to the computer. There will probably also 
be times when the teacher does not have the time to give the information 
to the computer directly and would rather leave the information for the 
computer to digest while the teacher is engaged elsewhere. 

Thus, it is necessary that this channel of communication be 
able to act in at least three modes: 1) an interactive-prompted mode, 

2) an interactive-unprompted mode, 3) an off-line mode. In each of 
these modes extensive error-checking routines must be available to the 
computer to insure that it has received all the information it requires 
and in the right format. 

g 

Simmons, R. F. , "Natural Language Question Answering Systems: 
1969," Communications of the ACM , v. 13, p. 21, January 1970. 

9 

Uhr, L. , 24th Conference Proceedings of the Association for Com - 
puting Machinery , "Teaching Macmnes that Generate Problems as a 
Function of Interaction with Students," p. 126, 1969. 
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Furthermore, the teacher may not desire to impart a totally 
new set of information to the computer, but only to modify information 
previously given. Thus, the system also requires an extensive editing 
package which must meet the same requirements as the original 1-0 
package . 
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IV. IMPLEMENTATION 



In order to test the applicability and the veracity of the ideas dis- 
cussed in Section III, construction was begun on a system which would 
be capable of teaching fourth grade mathematics. The system was given 
the name RASCAL (Rudimentary Adaptive System for Computer-Aided 
Learning). Rudimentary because it was to be a first try and hence, cer- 
tain simplifications were made to the original ideas. Adaptive because, 
it was hoped that the system would be able to generate questions and 
present remedial material based on its interaction with the student. The 
selection of fourth grade arithmetic as the subject to be taught was based 
on several factors: 1) fourth grade arithmetic is a highly structured sub- 
ject with the relationships between the ideas taught well established, 

2) the remedial measures used are fairly straightforward in most cases 
and available in the teachers' edition of the text book used by the 
Monterey Unified School District, 3) the descriptions of problems to be 
asked are fairly simple and relatively limited in format. 

A. STRUCTURE OF RASCAL 

Internally, RASCAL is structured into Levels which correspond 
roughly to a daily classroom lesson. This generally consists of intro- 
ducing a new idea and practicing it, or extending the previous idea to 
larger numbers. Each Level is then broken down into Problem Types 
which represent the type of questions to be asked in cementing the ideas 
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corresponding to the Level. Each Problem Type consists of a description 
of the form of the question and a list of the conditions that describe the 
difficulty of the question. Questions are classified as Hard, Medium or 
Easy. Associated with each Problem Type is a Tree which describes the 
next action to be taken by the computer. These Trees constitute part of 
the tutorial mechanism of the system. Each node of the Tree contains the 
number of times a node is entered, the conditions for entering a node, and 
the process to be carried out if the conditions are met. The nodes are 
grouped together in sets based on their applicability to the node preceding 
them in the Tree. Figure 2 is a simplified diagram of this structure. For 
a complete example, refer to Appendix A. 

The Problem Type for the question is selected on a random basis. 
Once the Problem Type has been selected, the computer examines the 
conditions applicable to the difficulty it desires to make the question and 
generates a question accordingly. Each Level has associated with it a 
Level Frame which constitutes the rest of the tutorial process. It consists 
of a written explanation of the idea being presented as it might appear 
in the text book and example problems. Thus, it resembles the manner in 
which a teacher may introduce a new idea. In RASCAL, the teacher is 
assigned the function of breaking the course into Levels and describing 
the Problem Types associated with each Level. He is also responsible 
for creating the Tree of remedial steps associated with each ProblemType. 
The main elements of the computer's job consist of generating problems, 
presenting the problem, calculating an answer, selecting a branch of the 
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FIGURE 2 
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Tree, performing the operation in the branch, and determining when to 



advance the student. Refer to the flow chart in Appendix A. 

1 . D escription of a Problem Type 

The description of a Problem Type consists of the format for 
the problem and the conditions describing each level of difficulty for the 
problem. The format of the problem is limited to the standard Infix form 
and the answer to bo supplied by the student must be to the right of the 
equal sign. Although it is realized that fourth grade problems do not 
always call for the answer to be to the right of the equal sign, i.e. , 

7 + answer =13, it was decided to limit the form initially and then to 
later expand the system to be able to handle formats where the answer to 
be provided could occur anywhere in the description. Arguments to fill 
the operand locations consist of the twenty-six alphabetic letters and 
operators are the four elementary mathematical operators, '+' for addition, 
for subtraction, '*' for multiplication, and '/' for division. The occur- 
rence of the same letter in operand positions will cause the same number 
to replace the operand in each of those positions. Refer to Example 1. 

Example 1 

If the problem format is 
a + b - c = ; 

then three numbers will be generated and the 
problem presented to the student might be 
7 + 3 - 6 = ? . 
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However, if the format of the problem 



were given as 

a + (b-b) = ; 

then only two numbers would be generated 
and the problem presented to the student 
might be 

7 + (3 - 3) = ? . 

The conditions for describing the difficulty of a problem must 
be entered in the order: Hard, Medium, Easy. In each case, the language 
used to describe the conditions is the same. The first conditions given 
are the sizes of the number to replace each distinct argument in the prob- 
lem format, and these must be specified. In addition, optional conditions 
may be specified as is discussed in the next paragraph. The size of the 
number is specified in the form 

(argument) '=' (number) 

e.g. , a = 2, which says every time the argument a is encountered, in 
the problem format, it is to be replaced by the same two-digit number. 

Optional statements to specify conditions of difficulty allow 
for conditions to be specified: 1) on a particular digit of an argument, 

2) between any two digits of different arguments having the same place 
value, 3) on the sum of the digits in any place value position, .and 4) 
between any two arguments. Example 2 shows the form required for each 
of these conditions. 

To identify the place value, the first two letters of the place 
value names are used if it is a single word, and the first letter from each 
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name if a two-word name, e.g. , UN for units and TT for ten thousand. 



This method is used in preference to the actual names for simplification. 
To identify a particular digit, the place value name followed by the argu- 
ment, enclosed in parentheses, in which the digit is located is required, 
e.g. , UN(a) identifies the units digit in argument a. 

The operators that may be used in specifying conditions con- 
sist of relational operators, '<’ for less than, 1 >' for greater than, '=' 
for equal, 1 <=' for less than or equal, ’>=' for greater than or equal, 

'**' for multiple of, and '//' for divisible by. The use of letter descrip- 
tions, i„e. , 'L.T.' for less than or the actual words themselves were 
also considered as possibilities. They were not included since it only 
adds a non-essential and easily solvable complication to the system. 

The letter descriptive or word forms must be reduced prior to use. To 
attempt to use the symbols in letter form when the conditions are being 
applied, only slows down the generation of the numbers to fill the argu- 
ment positions. The relational symbol for Not (->) was also eliminated. 

Each condition must be separated from its predecessor by a 
comma, and the last condition must be followed by a semi-colon. A 
formal definition of the language for specifying Problem Types is located 
in Appendix A. Appendix B contains a complete problem description. 
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Example 2 



CONDITIONS FOR SPECIFYING THE DIFFICULTY OF A PROBLEM 



a) On a particular digit of an argument. 

Form: ' (' (argument) ')' A elationa A (number) 

lvalue/ 1 operator J 

Exampl es: UN (a) < 7, TE(b) >3 



b) Between two digits of different arguments. 



Form: 



f place\ 
value ] 



l 



(argument) 



')' 



/ relational 
( operator ) 




')' (argument) ')' 



Examples : UN(b) >UN(a), TE(a) > TEN (b) 



c) On the sum of the digits in a place value position. 

„ / place \ /relational , . . 

Form: , . number) 

\ value J 1 operator/ 

Examples : UN > = 10, UN <= 9 

d) Between two arguments . 

Form: (argument) ( re ^ at ^ oat '^ j (argument) 

\ operator J 

Examples : a//b, a > b, a** b 
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2 . 



Description of Trees 



To properly allow for the descx'iption of the Trees for providing 
assistance, it was necessary to determine what types of remedial pro- 
cesses might be used in the Tree. The first thing that might be tried if 
the student has trouble would be to give an example and then ask an 
easier question. If this does not work, then one might try to use a special 
trick called a Function in the terminology of the system. If still unsuc- 
cessful, then a statement to the student of what he has done wrong might 
be in order. If the misunderstanding is basic, then a re-presentation of 
the lesson frame may be required. Also, it may be desirable to ask the 
student why he responded in the manner he did to help decide which of 
the remedial steps above is the most appropriate. 

It was decided that the language used to specify the Tree 
should allow for all these possibilities. The general form 

(Type) ' : 1 (Action) 1 ; ' 

was decided upon. Type consists of a two-letter description of the cate- 
gory discussed above to which the action belongs. These letters are the 
first two letters of the descriptive word identifying the category discussed 
above to which the Action belongs; thus, PR for a problem, QU for ques- 
tion, ST for statement, FR for frame, FU for a function call, and HA to 
halt the procedure and present the correct answer to the student if his 
answer is wrong. The Action part of the form depends upon the Type. 
Example 3 shows various possibilities. 
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If the type of process is PR, then there are six possible 



Actions that may be specified. HARD, MEDIUM and EASY designate that 
a new problem of the difficulty indicated should be generated using the 
same problem format. Refer to Example 3a. NEW designates that a prob- 
lem of a different form is to be presented. It should be followed by the 
format of the new problem to be presented. If the arguments used in this 
description are the same as those used in the format of the original prob- 
lem, the numbers of the original problem will be used to replace the argu- 
ments of the new problem. Refer to Example 3b. If different arguments 
are used, then the computer will generate new numbers, so the number 
of digits these numbers are to have must also be specified. Refer to 
Example 3c. REPEAT designates that the original problem is to be asked 
again. EXAMPLE indicates to the computer that it is to show the student 
an example problem of the same format and level of difficulty as the one 
he has answered incorrectly. 

If the Type is QU, then the Action to be performed is the 
question to be asked, followed by the replies that are to be considered 
correct, enclosed in parentheses and separated by commas. These replies 
are limited to one word to simplify matching them with the student's 
answer. Later, they were to be of any size. Refer to Example 3d. 

If the Type specified is ST, then the Action should be just the 
sentence or sentences to be presented. 

When the Type is FU, then the Action part of the form is to be 
the name of the Function or the file number of the Function to be used. 
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Example 3 



SPECIFICATIONS OF REMEDIAL METHODS 
The original problem presented to the student is: 

8 + 6 = ? 

generated from the problem format 'a+b=;' using the 
conditions specified for a problem of Medium difficulty 
’a=l ( b=l,UN(a) >6 / UN(b) >=4;' . 

a) The remedial process is: 'PR: EASY 1 and the conditions for an 

Easy problem are 'a=l / b=l,UN(b) < =3; 1 . 

The computer will present a problem similar to: 

6 + 1 = ? 

b) The remedial process is: 'PR:NEW,b+a=; ' . 

The computer will present the problem: 

6 + 8 = ? 

c) The remedial process is: 'PR:NEW,c-d=,c=l ,d=l ,c M;' 

The computer will present a problem similar to: 

6 - 3 = ? 

d) The remedial process is: 'QU:Do you understand the difference be- 

tween addition and subtraction? (yes);' . 

The computer will display to the student: 

Do you understand the difference 
between addition and subtraction? 

If the student answers 'yes' , the computer will consider this a 
correct answer in searching for the next branch in the Tree it 
is to take. 

e) The remedial process is: 'FU:NUMBER LINE' and NUMBER LINE is 

a Function which presents a number line 
to the student. 

The computer will display to the student: 



3 4 5 6 7 8 9 10 II 12 
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The teacher, of course, will have a listing of the Functions available. 
However, if he has lost his copy or cannot find it, he should be allowed 
to call the Function by name. Therefore, the name of a Function should 
agree as closely as possible with the terminology of the teacher. It is 
still possible, though, that a match cannot be made between what the 
teacher calls a Function and its name in the system's library of Functions. 
Thus, the error-checking routines in the system should include a mechan- 
ism for determining which Function names match the closest to the name 
given by the teacher and determining a replacement, either by asking the 
teacher which one he means when in the interactive mode, or selecting 
the closest match and informing the teacher of the substitution when in 
the off-line mode. Refer to Example 3e. 

When the Type is FR, the Action part of the format is the name 
of the level or level-number to which the frame is associated. The same 
comments apply to the error-checking routines as apply when the Type 
equals FU. 

Before presenting a remedial node to a student, the computer 
must decide whether or not the node is applicable. Thus, each node in 
the Tree contains a list of conditions which describe the situation in which 
the node applies. The construction of these conditions is presently the 
responsibility of the teacher. Thus, the language for communication be- 
tween the teacher and the computer provides for the list of conditions to 
be specified in the manner discussed below. 
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The conditions themselves may be based on 1) whether the 
answer is right or wrong , 2) the difficulty of the problem, 3) the student's 
ability, and 4) particular differences in the answer calculated by the 
computer and the student's answer. To describe a condition of the first 
type, the terms RIGHT and WRONG may be used. The terms HARD, 
MEDIUM and EASY may be used to describe the difficulty of the problem. 
FAST, AVERAGE and SLOW are to be used in describing the student's 
ability. When referring to the student's answer, the term SANS is to be. 
used, and the term MANS is to be used in referring to the machine's 
answer. 

It is possible to specify a particular digit of the student's 
answer or the computer’s answer when stating a condition by the use of 
a period as a delimiter and a number which corresponds to the place value 
of that digit. This number is the location of the digit when examining the 
answer from right to left. Thus, 1 corresponds to the units digit, 2 cor- 
responds to the tens digit, and so on. It is not necessary to qualify 
both the terms SANS and the term MANS if the digits to be compared have 
the same place value. If they have a different place value, then the 
place value must be specified in both terms. It is also possible to specify 
conditions on the student's answer and the answer of the computer by 
specifying a relation between an arithmetic combination of the student's 
answer and the computer's answer and a number. Qualification of the 
student's answer and/or the machine's answer is possible in this case 
also . 
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The set of relational operators that can be used in relating 
the elements of a condition list are the same as those which are used in 
describing a Problem Type with the addition of for and, 1 | 1 for or 
and ' ' for not. The hierarchy of these operators and a formal descrip- 

tion of the language for describing Trees is located in Appendix A. 

Example 4 gives examples of condition lists. 

While the term 'remedial' has been used to describe the 
branches in the Trees, this is not the only type of function the Trees 
serve. Nodes may also be specified for the more successful student. 

3 . Advancement of the Student 

The mechanism for advancement of the student is dynamic in 
the sense that the number of problems asked in any given level is depend- 
ent upon the answers the student gives to the problems asked. Students' 
responses are classified into three types: 1) those answered correctly 

on the first try, identified as Right; 2) those answered correctly after the 
presentation of remedial material, identified as Prompted; and 3) those 
which could not be answered correctly even after the presentation of 
remedial material, identified as Wrong. 

The first step undertaken by the computer in the presentation 
of material to the student is to select the Problem Type to be presented 
from those in the Level the student is being taught. This is done on a 
random basis. Once this is done , the computer knows the form of the 
problem. It must then decide how difficult the problem is to be. initially, 
all Problem Types are given an Easy level of difficulty. For each Problem 
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Example 4 

CONDITION LISTS FOR DESCRIBING THE APPLICABILITY OF A NODE 



Assuming a hypothetical student, who is considered to be fast 
learner and who has answered 'll' to the problem '13+8=?' , which is 



considered to be a Hard problem, conditions of the following types might 



be specified: 



a) 

b) 



c) 

d) 



e) 



The condition string: RIGHT & FAST 

is false . 

The condition string: WRONG 

is true. 



The condition string: WRONG & SLOW 

is true. 

The condition string: WRONG & ( FAST | MANS. 2 > SANS. 2) 

is true. 

The condition string: WRONG & ( FAST | MANS. 2 >SANS) 

or 

WRONG & ( FAST | MANS > SANS . 2) 
would be interpreted in the same manner. 

If specified as: WRONG & FAST I MANS. 2 > SANS. 2 

it 'would not be interpreted in the same 
manner due to the hierarchy of operators. 
However, the condition string is still true. 



The condition string: WONG & (AVE |FAST)& (MANS-SANS = 10) 

is false. 

If specified as: WONG & AVE |FAST & MANS -SANS- 10 

it is true due to the effect of the hierarchy 
of operators . 
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Type a Score is kept which indicates how well the student is doing on that 
Problem Type when the problems being asked are of a particular level of 
difficulty. Should the Score exceed or equal .7, the level of difficulty 
for that Problem Type is increased to the next level of difficulty, and the 
Score for that Problem Type is reset to zero. When the level of difficulty 
for a Problem Type is at the Easy level, each Right response by the stu- 
dent adds .2 to the Score for that Problem Type. Each Wrong response 
reduces the Score by . 2 . Those responses by the student which fall into 
the Prompted category have no effect on the Score of a Problem Type. 

When the level of difficulty for a Problem Type is set to Medium or Hard, 
the Score of the Problem Type is only increased or decreased by . 1 . When 
a Problem Type is set at the Hard level of difficulty and its Score equals 
.7, the Problem Type is marked as completed. Since Problem Types are 
selected randomly and since students may have more success on one 
Problem Type than another, it is possible that one Problem Type may be 
marked as completed, while the other Problem Types in that Level still 
require more practice by the student. Problem Types which have been 
marked as completed are presented only every third time selected for pre- 
sentation. This provides review for the student and allows the computer 
to concentrate more on other Problem Types where the student has been 
less successful. 

When all Problem Types have been marked completed, the 
computer checks to see if the student is ready to advance to the next 
Level. Each time a student's response to a question was classified as 



48 



being Wrong, that question was added to a Hard List. To test if the stu- 
dent is ready to advance to the next Level, the computer asks the questions 
stored on this Hard List. The computer keeps track of the number of prob- 
lems asked and the number answered correctly. No remedial presentation 
or assistance is given. If the student correctly answers 70% of the prob- 
lems on the Hard List, he is advanced to the next Level. If he cannot 
correctly answer 70%, then he is sent back to try again. When a student 
is returned to the same Level to try again, the level of difficulty to which 
all Problem Types are set is dependent upon the number of times he has 
failed to correctly answer 70% of the questions on the Hard List. If it is 
the first time he has failed, the level of difficulty on all Problem Types 
is set at Hard; on the second failure, they are set to Medium. If a third 
failure occurs, the teacher is called to identify the problem and provide 
assistance. After the teacher signifies that the student is ready to con- 
tinue, all Problem Types are given an Easy level of difficulty and the stu- 
dent is allowed one more attempt. If he fails again, he is demoted to the 
next lower Level and the teacher notified . 

All questions appearing on the Hard List, for the first two 
Levels below the Level at which the student is working, are stored in the 
student's file. They are intended as a source of review questions. How 
often a review problem should be asked is a pragmatic question, and it 
has not been decided how often this should occur in RASCAL. Some con- 
sideration has been given to the idea that it should be a parameter of the 
system which can be set by the teacher. 
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The system also allows for downward movement and demotion 
in a similar manner. If the Score for a particular Problem Type becomes 
less than minus .5, the level of difficulty for that Problem Type is reduced 
to the next lower Level. If the level of difficulty is already at Easy, and 
the Score falls below minus .5, then the Problem Type is marked. After 
that, a problem is presented to the student only every third time the 
Problem Type is selected. If the Score for a Problem Type so marked ever 
returns to a value greater than minus .5, the marking is removed and the 
Problem Type is treated just like any other Problem Type with a level of 
difficulty equal to Easy. This is to allow for cases where the understand- 
ing of one Problem Type may depend upon the understanding of another 
Problem Type. Thus, the Problem Type with which the student is having 
trouble is held in abeyance, until a sufficient number of problems from 
the Problem Type which is a prerequisite have been asked to, hopefully, 
allow the student to understand the Problem Type with which he is having 
trouble. This should not be the case too often, since Problem Types 
which tend to be prerequisites should be at a lower Level, but allowance 
must be made for the possibility. If the Score of a Problem Type ever falls 
below minus one, then the student is demoted one Level and the teacher 
notified. Each time a Problem Type is marked for falling below minus .5, 
a check is made to see how many others are so marked. If the percentage 
of Problem Types marked in this manner exceeds 25% of the number of 
Problem Types in the Level, a Slow student is demoted. For the Medium 
student the percentage is 50 and for the Fast student, 75% is the limit. 
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It was mentioned earlier that a third type of response, Prompted, 
was allowed. It is used only in the determination of the student's abilities 
for the next Level. The manner in which this is accomplished is that each 
problem asked, regardless of its category, is added to a count of the num- 
ber of problems asked at that Level. Upon completion of a Level, the 
number of questions asked the student is compared with the average num- 
ber of questions asked in the Level. The ratio of the number asked to the 
average number is the deciding factor. If this ratio is .5 or less, then 
the student's abilities are marked as Fast; if the ratio exceeds 2, then 
the student’s abilities are marked as Slow. In between, they are marked 
as Average. When a student is demoted, a flag is set so when he ad- 
vances again to the next Level, his abilities are marked as being one 
Level lower than that calculated by the above mechanism. 

4 . Problem Generation 

Because of the manner in which the mechanism for advancing 
the student works, it is necessary for RASCAL to apply the conditions for 
describing the difficulty of a problem at the time the problem is generated. 
By making certain simplifying assumptions, it appears that this method 
will allow problems to be generated faster than the other method described 
earlier. Two methods for applying the conditions to the generation of the 
problem were considered. 

The first method considered is "set reduction." The computer 
would produce a large set of problems and then apply the conditions to 
eliminate elements of the set. - Then it would choose a problem at random 
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from those remaining after all conditions had been satisfied. This method 



appears to be limited by the size of the initial set the computer must 
generate and save. The second method might be called "trial and modify 
The computer would generate a question and then begin to apply conditions 
to it, modifying the question so that it fit the condition. The problem with 
this method is that if a condition forces a change in the problem, it must 
then go back to check that a previously checked condition has not been 
violated. If the conditions are too stringent, this could become a dog- 
chasing-its-tail situation. The method used in RASCAL is a modification 
of this second method with several simplifying assumptions made. 

While it is assumed that contradictory conditions are not in- 
tended, no effort is made to understand which conditions are actually 
meant. Minimal changes are made and if this does not remove the contra- 
diction, it is simply ignored. Further, it is assumed that the conditions 
specified by the teacher will be realistic in the sense that they will not 
reduce the set of problems that may be asked to a very small number, and 
thus, become overly critical. If this assumption is made, then it is 
possible to eliminate the necessity for rechecking every condition when- 
ever a condition forces a change. Instead, it is only required that one 
make minimal changes and be satisfied with slight deviations from the 
actual conditions. Allowance for the fact that the problems generated may 
vary slightly from the actual specifications, is the reason the student 
must answer 70% of the questions on the Hard List before being allowed 
to proceed to the next Level. This provides a check to see if he really 
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understands, in the event that by answering problems not up to par, the 
student is thought ready to advance. Example 5a gives examples of con- 
ditions that might be considered contradictory and the Action that may be 
used to resolve the conflict. Example 5b shows how a problem may be 
modified so as not to fit the conditions perfectly. 

Since the generation of numbers to replace the arguments in 
a problem definition is done a digit at a time, it is necessary to break 
the optional conditions into three groups. Group 1 consists of those 
conditions which relate a particular digit to a number, e.g. , UN(a) < 6. 
Group 2 consists of the conditions which relate two digits, e.g. , 

UN (a) >UN (b) or which relate the sum of the digits in a particular place 
value to a number, e.g. , UN >= 10. In group 3 are those conditions which 
relate two arguments, e.g. , a b. To speed up the scan of the conditions 
and to insure that the interpreter will find all conditions, it is necessary 
that all conditions in Group 1 precede those in Group 2. Those conditions 
in Group 2 must precede those in Group 3. Refer to Example 5c. 

The computer begins by picking the first argument from a list 
thal has been created. This list contains all the arguments that occur in 
the problem format. It then determines the size of that argument and allo- 
cates storage to hold the number which will replace the argument. This 
is done for each argument on the list of arguments. When all storage has 
been allocated, the computer returns to the head of the list. Beginning 
with the Units position, the computer scans the list of conditions for all 
conditions belonging to Group 1 which affect the Units position of the 
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first argument on the argument list. If none are found, the Units position 
for that argument is filled with a random number in the range 0-9. If 
conditions are found, they are used to modify the range of the random 
number and then the Units position is filled. At the same time, a choice 
parameter is set which tells how the digit just generated may be modified 
when attempting to meet a condition belonging to Group 2. 

Once all the Units positions for arguments on the argument 
list have been filled, the computer then checks for conditions on the 
Units position belonging to Group 2. They cannot be checked prior to 
this since a digit affected by a condition belonging to Group 2 may not 
yet have been generated. In attempting to satisfy a condition for Group 
2, the computer makes only those adjustments which are allowed by the 
choice parameter for the digit in question. If after making all allowed 
modifications, the condition from Group 2 is not satisfied, it is ignored. 
When all conditions from Group 2 affecting the Units position have been 
satisfied, the computer starts at the head of the argument list and begins 
filling in the Tens digits of those arguments declared to have two or more 
digits. Those arguments having a lesser number of digits than the place 
value being filled are skipped over. The process continues until all the 
digits of the largest argument are filled. 

When all the digits of all the arguments have been filled, the 
computer scans the list for any conditions from Group 3. In satisfying 
these conditions, the computer disregards all previous conditions but 
only minimal changes are made to satisfy the conditions in Group 3. 
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Example 5c gives a detailed description of how the numbers for a 
problem are generated . 

The choice of how a digit may be modified by a condition from 
Group 2 is dependent upon the conditions from Group 1 encountered when 
generating that digit. If no conditions belonging to Group 1 are encoun- 
tered, then the digit may be modified in any manner. If the conditions 
encountered include the use of the relational operator '//' , or , 

which are given top priority, no change is allowed. If the conditions use 
' >l or 1 >=' , then the digit may be increased any amount providing it does 
not exceed 9. If the conditions use ' <‘ or '<=', then the digit may be 
reduced by any amount provided it does not go below zero. If both ’> 1 
or ' >=l and 1 < ' or '<=' are used in the conditions encountered, the digit 
may be increased or decreased by a minimal amount. 

Whenever a condition has been interpreted by the computer, 
it is removed from the condition list. This increases the speed of inter- 
pretation but does not allow for conditions to be rechecked after a modifi- 
cation of the numbers due to another condition. This is as intended; 
however, it does require that the order in which the conditions belonging 
to Group 2 or Group 3 are listed be given some thought. The computer 
handles these conditions as encountered so conditions that operate on the 
same argument must be listed in the manner which will produce the effect 
closest to that actually desired. Refer to Example 5d. 
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Example 5 



GENERATING PROBLEMS OF A SPECIFIED DIFFICULTY 

a . Specifications Are Contradictory 
Problem: a + b = ; 

Conditions: a = 1, b = 1, UN(a)> 6, UN(b)> 4, UN< 10; 

If the original numbers generated to fill the Units of 'a' and ' b ' 
are 7 and 5, then following the minimal change policy, 'a 1 would be re- 
duced by one to the value of 6. Since the condition UN <10 is still not 
satisfied, 'b' would be reduced by one to the value of 4. The condition 
UN <10 still not being met, 'a' would be reduced by one again. This 
yields the values 5 and 4 for the Units of 'a' and ‘ b ‘ respectively. 

In this case, the minimum change policy is not the best to follow, 
but it does resolve the conflict. Things turn out this way because UN < 10 
has priority since it belongs to Group 2. 

b . Problem Is Slightly Altered from the Specifications 
Problem: a/b = ; 

Conditions: a = l, b=l, UN(a)<8, UN(b),> =3, a//b; 

With these conditions, 'a' might be 6 and ' b 1 could be 9. Since 
a//b has priority by virtue of belonging to Group 3 and because it contains 
the "divisible by" operator, the policy of minimum change would produce 
a=9, b=9 which is a slight bending of the conditions. 
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c . A Complete Example 

Problem: a + b + c = ; 

Conditions: a=2 , b=2 , c=l, UN(a)>4, UN(b)<5, UN (a) > UN (c) , 

UN >10, TE < -9; 

Argument List: a, b, c 

1. The first step by the computer is to allocate storage for 'a', 

'b 1 and 'c‘. When this is done the condition list has been reduced to: 

UN (a) >4, UN (b) <5, UN(a)>UN(c), UN >10, TE<=9; 

2 . The condition list is then searched for conditions on the Units 
position of 'a' and a match is made on UN(a)>4. Thus, a random number 
is generated in the range 4-9. Suppose 5 is the number selected. It is 
indicated that this number can be increased. This leaves the condition 
list: 

UN(b)<5, UN(a) > UN(c), UN>10, TE< = 9; 

3. The condition list is searched for conditions on the Units 
position of 'b 1 and a match is made on UN (b) < 5. Thus, a random number 
is generated in the range 0-4. Suppose 2 is selected. It is indicated 
that this number can be reduced. This leaves the condition list as: 

UN (a) > UN (c) , UN >10, TE <=9; 

4. The condition list is searched for conditions on the Units 
position of 'c'. No match is found so a random number is generated in 
the range 0-9. Suppose 6 is selected. This indicates that this number 
may be changed in any manner. The condition list is left as: 

UN (a) >UN (c) , UN >10, TE <=9; 
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5. 



Since the Units digit for all arguments has been generated, 



the condition list is searched for any other conditions on the Units posi- 
tion. The first selected is UN (a) > UN(c). Since 'a' is less than 'c', the 
computer must make an adjustment. The manner in which 'a' may be modi- 
fied is checked and it is seen it can be increased any amount as long as 
it remains less than 9. The minimum change to satisfy the condition is 
2 and the maximum allowed is 4. Thus, a random number is selected in 
the range 2-4. Suppose 3 is selected. This number is added to the Units 
digit of 'a', making this digit 8. The condition list is now: 

UN>] 0, TE<=9; 

6. The condition list is searched for any more conditions on the 
Units position and UN >10 is found. Since the sum of the digits in the 
Units position is already greater than 10, no action is required. If the 
sum was less than 10, each argument's Units digit would be examined 
to see if it could be increased. If a digit could be increased, a random 
number would be generated and the digit increased by that amount. If the 
Units were still less than 10, another digit would be looked for to in- 
crease. If no others could be found, the same digit would be increased 
again until it could not be increased further. If the UN <10 condition 
were still not satisfied, it would be ignored. The condition list would 
now be: 

TE< = 9; 

7. Again the condition list is searched for conditions on the 
Units position. Since none would be found, the computer would begin to 
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search for conditions on the Tens digit for argument 'a'. None would be 



found, so a random number in the range 0-9 would be selected. Suppose 
7 is selected; the indication is made to show that this number can be ad- 
justed in any manner. The condition list remains: 

TE ^=9; 

8. A search is now made for conditions on the Tens digit of the 
argument. Since none are found, a random number in the range 0-9 is 
selected. Suppose 9 is selected; the indication is made that this number 
may be adjusted in any manner. The condition list remains: 

TE <=9; 

9. Since the size of argument 'c' is only 1, no search is made 
for conditions affecting the Tens digit of argument 'c'. Instead, the 
search is made for any conditions affecting the Tens position and TE <= 9 
is found . 

10. Up to this point, the numbers generated are: 
a = 78, b = 92, c = 6. 

Thus, the sum of the Tens digits including the carry is 17, which is 
greater than 9. The Tens digit for argument 'a' may be adjusted down- 
ward. However, a net change of 8 is required and the Tens digit of 'a' 
may only be reduced by 6. Thus, a random number in the range 1-6 is 
selected. Suppose 4 is selected, and the Tens position of 'a' is reduced 
by 4. Thus a = 38, and the sum of the Tens digits is now 13. Since the 
sum is still too large, the Tens digit of argument ’ b ' is examined to see 
if it may be reduced. Since it can, and since it may be reduced by 8 
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while the reduction required is only 4, a random number in the range 4-8 
is selected. Suppose 7 is selected. This number is then used to reduce 
the Tens digit of argument ' b ’ . Thus, b = 22. 

11. Since all conditions have now been satisfied, the search 
ceases and the problem presented to the student is: 

38 + 22 + 6 = ? 

12. Had the condition list been incorrectly prepared so that all 
the conditions of Group 1 did not precede those of Group 2, i.e. , a=l, 
b=2 , c=l, UN (a) >UN (c) , UN(a)>4, UN(b)<5, UN>10, TE< = 9;, the fol- 
lowing would have occurred: 

The search for conditions on the Units of 'a' would have yielded 
UN(a) >UN(c), which does not qualify as a condition belonging to Group 
1, and would have been ignored. This is because the search is geared 
to find the first occurrence of 'UN (a) > ' . 

When the time came to search for conditions belonging to Group 2, 
the condition string would be: 

UN (a) nJNfc), UN (a) >4, UN >10, TE^9; 

The condition, UN (a) >4, would be found but, not belonging in Group 2, 
it would be ignored. Thus, the fact that the Units of 'a' should be greater 
than 4 would never be established. 

d . Importance of the Order of Conditions in Group 2 and Group 3 

Problem: (a+b) + (a-b) = ; 

Conditions: 'a' is 1 digit, ’ b ' is 1 digit, and UN(a) >UN(b), UN <10 

are desired . 
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The condition string could be written as: 

1) a=l , b-1 , UN (a) > UN (b) , UN <10; 

or 

2) a=l , b=l , UN <10, UN (a) > UN (b) ; 

Form 1 should be used if it is more important that the condition, 

UN < 10, be true than for the condition, UN (a) >UN(b), to be true, since 
this insures that the Units will be less than 10. There is no guarantee 
that the Units of 'a' will be greater than the Units of ' b ' . Consider the 
case where a=8, b=4 , after applying the condition UN(a)>UN(b). To 
satisfy the condition, UN < 10, 'a 1 will be reduced by a number in the 
range 3-7; thus, it is possible that the result may turn out to be a=2 , 
b=4 . 

Form 2 should be used if it is more important that the condition, 

UN (a) > UN (b) , be true than for the condition, UN < 10, to be true, since 
this guarantees that the Units position in the answer will be less than 10 

If both are equally important, then the condition should be written 
as: 

UN (a) <= 5 , UN (a) >UN(b) . 

This insures that both conditions will be met, but x'educes the set of prob 
lems that can be generated. 
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5 . 



Generating an Answer 



Once the numbers have been generated to replace the arguments in 
a problem, the computer must calculate the answer to the problem. Since 
the computer is well known for its calculating abilities, it would be a 
simple matter for it to go through the problem format, performing the indi- 
cated operations. However, this would not provide information as to the 
steps involved for future comparison with the steps taken by the student. 
Therefore, a more sophisticated process is employed. 

The original problem in Infix notation is converted to Polish nota- 
tion. After each operation is performed, the result is stored in a chain 
of partial answers, thus providing a sequence of answers which can be 
compared with the student's answer. 

In addition, each operation is performed in the manner it would be 
expected that the student would perform the operation. Addition and sub- 
traction are done digit by digit with borrows and carries remembered. 
Multiplication is done so that each sub-multiple is retained and these 
are added to produce the final answer. Division is performed by comparing 
the divisor with the digits of the dividend from left to right until a division 
resulting in a number greater than zero can be performed. The division is 
then performed on that partial dividend, and the remainder determined. 

The process is repeated on the remainder and the remaining part of the 
dividend . 
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6 . 



Interpreting Trees 



The interpretation of trees consists of two parts: interpreting the 
conditions for a branch, and interpreting the process to be performed in 
that branch. Interpreting conditions is done by converting the list of 
conditions into Polish notation and then operating on the Polish form by 
using a pushdown stack. Thus, the interpreter is not as fast as it could 
be. It must consider the whole condition string before arriving at a truth 
value for the string. For example, the condition string 'RIGHT & FAST' 
is converted into the Polish string 'RIGHT, FAST, &'. This forces the 
examination of the truth value of the term FAST even if the student's 
answer is wrong. A faster method would be to group & and | operations 
and test them one at a time, stopping as soon as one element of the And 
condition is false or as soon as one element of an Or condition is true. 

The placement of the nodes during the interpretation is critical. 

After completing the process at a node, the computer examines the condi- 
tions on the set of nodes at the next lower level in the Tree, associated 
with the node just completed. These nodes are linked together in a se- 
quence. The examination starts at the first node in the sequence and stops 
as soon as a condition string is found whose value is true. Consider 
Examples 4b, 4c, 4d. All of these have a value which is true. Thus, if 
they are in the sequence 4b, 4c, 4d, the condition strings 4c, 4d will 
never be checked. Since 4c is less stringent than 4d, it should not pre- 
cede 4d. Else 4d may not be examined as often as it should. The correct 
ordering is 4d, 4c, 4b. 
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Once the condition interpreter has found the proper node, then the 
process associated with the node must be carried out. This interpretation 
is geared to the keys discussed on page 41 . Once the key has been 
identified, it is only necessary to further qualify the action in some cases 
and then perform the action associated with the key. 

B. DEVELOPMENT 

it was decided to use Programming Language/One (PL/i) to imple- 
ment the workings described in Section A. The choice was governed by 
the prime necessity of using a language with string manipulation capabili- 
ties and which could be used in an On-line situation. This narrowed the 
choice to SNOBOL IV and PI/I. While the string manipulation facilities 
of SNOBOL outweigh those of PI/I, PL/I was chosen because of other 
limiting factors on the use of SNOBOL. 

Having reached the programming stage, it became apparent that an 
organized sequence of developmental steps was necessary due to the 
size of the program planned. The first stage was to be the development 
of a Drill and Practice system built around Levels and Problem Types, 
and incorporating the advancement mechanism described earlier. Input 
of the required information to construct the Levels and Problem Types was 
to be non-interactive at this stage, the information being obtained from 
preconstructed files. The Levels were to comprise only addition, sub- 
traction, multiplication, and division problems dealing with integer 
numbers . 
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At stage two, the addition of the Trees describing remedial material 



was to be accomplished. This included the construction of an interpreter 
for conditions and processes, and the construction of the routines for 
carrying out the processes. It also requires the construction of the rou- 
tines which perform the more common tricks associated with problems that 
the system was limited to at this stage. 

Stage three was to be the construction of student files and to test 
out the system on actual fourth grade students. Stage four was to be the 
creation of the teacher's interactive side of the system. This included 
construction of the prompted 1-0 package, error-checking routines and 
editing routines, and the output to the teacher of results with students. 

At stage five, the system was to be expanded to handle problems 
defined in other formats than the one discussed on page 3 7 , and expan- 
sion of the Levels to include fractions and decimal numbers. 

At stage six, the main idea was to make those modifications which 
it was felt would make the system run more smoothly based on the results 
obtained to this point. 

Stage seven was to begin making extensions to the system as dis- 
cussed in Section V. 
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V. CONCLUDING REMARKS 



To date, stage one has been completed and some programming has 
been done on stage two. The results of this work, while incomplete, do 
indicate that the system is feasible, and with some modifications and 
extensions, can be a viable means for providing individualized instruction. 

Operating as a drill and practice type system with all routines in 
core, RASCAL used approximately 100 K of storage. Thus, it is estimated 
that with the routines for handling Trees included, RASCAL could be run 
on a system with 250 K of core. Since some overlaying is possible, this 
figure is probably overly pessimistic. Any overlaying done must be care- 
fully planned so as not to affect the interactiveness of the system. This, 
especially, is a factor since the attention span of most elementary school 
children is shorter than that of adults. While, at present, RASCAL 
appears to be interactive enough, the effect of the modifications to be 
discussed is unknown. Since the size of the computer systems now being 
discussed for CAI is quite large, it does not seem unreasonable that 
they should have some multi-processing capability. This would insure 
that systems such as RASCAL would be interactive enough, since while 
one problem was being asked, the next problem to be asked could be 
generated. The size of these computer systems also makes the core 
requirements of RASCAL satisfactory. 

For reasonable conditions on the difficulty of a problem, RASCAL 
can, by eliminating the rechecking of a condition, generate problems 
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fast enough to prevent the student from having to wait between problems. 
However, two failings in the present method of generating problems have 
been noted. The first is that the failure to recheck a condition, when 
generating the problem, makes it necessary for the teacher to spend more 
time in constructing the conditions to insure they are in the proper se- 
quence. The second is that another group of conditions appears to be 
needed for complicated problems. For example, the problem '(a+b)/c= 
might require the condition, '(a+b)//c', to be specified. The first prob- 
lem may be solved either by modifying the method to include a recheck of 
conditions or by making the computer do the necessary ordering. The 
second problem requires only an expansion of the interpreter which inter- 
prets conditions regarding problem difficulty. 

One further comment regarding the problem generator, deals with 
the method of identifying a particular digit of an argument. It was 
decided to use 'UN (a)' to describe the Units position of argument 'a' 
instead of 'a. 1' because of the intent to expand the system so that Units 
(a) would be allowable. This was thought to be clearer to the teacher. 
Such thinking was not carried over to the interpreter for determining when 
a node was applicable where the ' . 1' notation is used to qualify a refer- 
ence to the machine's answer or the student's answer. This inconsistency 
may be a source of confusion necessitating the change of one method. 

From the teacher's standpoint, the method for describing a Problem 
Type appears reasonable. The examples in Appendix B were written with 
little difficulty by a fourth grade teacher after a brief explanation of the 
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constraints in the language. An ideal extension would be for the computer 
to be able to interpret the word description of the conditions which pre- 
cede the actual specifications in Appendix B. 

The specification of the Trees to be used by RASCAL is consider- 
ably harder, and as presently written, would probably not be acceptable 
to the teacher. There are two major reasons for this unacceptability. The 
necessity of properly ordering the nodes, as discussed earlier, greatly 
increases the amount of effort that must be expended. This could be cor- 
rected, either by providing a means for the computer to order the condi- 
tions, or by modifying the present means of determining the applicable 
nodes. This new method would allow the computer to test all nodes for 
applicability . 

The second reason is more basic to the concepts of the system. The 
teacher uses his "bag of tricks" almost without thinking. Through experi- 
ence, the correct method occurs to him almost as a reflex action. Thus, 
it is difficult for him to sit down and put on paper what may occur when 
a particular problem is presented to the student. Even when he does make 
this effort, he finds himself blocked by the limitations in the language 
which only adds to his frustration. Thus, it may have been premature to 
eliminate the programmer from the construction of the Trees. It may be 
necessary to have the programmer convert the English descriptions of a 
node, similar to those in Appendix B, into tasks that the computer can 
perform. This should still be an easier job than trying to create a set of 
frames to present to the student. 
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Two elements in the present system also need to be corrected to 



make the Trees more flexible. At present, the Trees are true trees with 
no loops allowed. However, certain types of errors require the same 
procedures to be followed; thus, it is wasteful of core, to say nothing of 
the burden to the teacher, by forcing repetition, not to allow looping. 
However, if looping is to be allowed, two problems must be taken care of. 

First of all, the computer must have some means of insuring that 
students do not get caught in a loop. Secondly, there must be a means 
for the teacher to specify which node starts the procedure he wants to 
use at a particular point in the Tree. For the teacher to say 'Go to Node 
5,' requires that he have an understanding of the system and how it num- 
bers the nodes. Since this is one of the things one does not wish to 
require of the teacher, it lends support to the idea of having the program- 
mer construct the Trees. A possible method of doing this, without using 
the programmer, would be to use a terminal with graphic capabilities. 

Then the computer could display the Tree to the teacher, and he would 
only have to point to the node he wanted. The computer would handle 
the linking. Such a terminal would also be useful in the Edit routines 
required by the system for the same reason. 

The second correction required is that the computer needs to check 
to see if the student has performed the correct operation. If the problem 
were 'a*b= the student, not really understanding multiplication, 
might add. The simple way of providing this capability would be to odd 
conditions of the form, 'SANS^a+b', to the types of conditions allowed 



69 



for specifying the applicability of a node. A better way might be to have 
the computer automatically do this check; and, if the situation arises, 
branch to a routine for handling the occurrence. This would be a start on 
extending RASCAL so that it creates its own Trees from a set of general 
methods specified by the teacher. This would be a difficult task to ac- 
complish, but it would alleviate the problems encountered in having the 
teacher create the Trees. 

The idea that RASCAL should be able to follow the steps the student 
takes in reaching his answer has been partially implemented in that the 
system performs arithmetic operations the way the student would and 
stores the partial results. The mechanisms for actually comparing these 
to the student's steps remains to be implemented and should be given a 
high priority in completing the implementation of the system. 

A final extension to any system such as RASCAL would be for the 
system not only to generate its own Trees, but also for it to generate its 
own remedial methods. This is an extremely difficult problem and is sim- 
ilar in concept to the idea in Samuel's Checker-Playing program, where 
the computer would generate its own parameters by which to evaluate its 
moves. Concrete ideas on how to do this do not exist, and it is likely 
that it will be some time before there is a CAI system which can generate 
its own methods for providing assistance to the student. 
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APPENDIX A 



RASCAL - THE COMPUTER'S SIDE 

FORMAT DESCRIPTION OF LANGUAGE 
FOR COMMUNICATING WITH RASCAL 



The meta-symbols used in the description of the language serve 
the following functions: 



< > are used to enclose items which are not elements of the 
language and can be broken down further. 

[ ] are used to enclose optional items. 

are used to indicate a choice of one of the items 
{ } enclosed is to be used. 



is used to indicate the 'Or' operation. 

1 1 are used to contain word descriptions of items which 

cannot be defined in another manner. In the event there 
is a possibility of confusion between a metasymbol and 
a symbol in the tanguage, the actual symbol is also 
enclosed in quotes. 

10 is used to indicate a limitation on the size of the 
1 items enclosed. 



::= is used to indicate a definition. 

<language> : : =<problem descriptionxtree descripti on> 

/problem \;-=<problem format><hard conditions><medium 
xdescription/ c0ndit i 0 ns><easy conditions’ 

/ problem's < nd >/arith \< 0 pcrand’-; 

\ format / * \operator / 



loperat 

I /cl "T 1 

<ar 8 umcnt > \ope 



^ < operand > 



<argument> : : = A 
X 



th 

perator/ 

C|D|E|F|G|H|I|J|K|L|M|N|0|P|Q|R|S|T|U|V|W| 

Z 



<arith op.> : : = +|-|*j/| 

<hard condition> : : =<condition list type 1>; 
< medium condition> : : =<condition list type 1>; 
<easy condition> : : =<condition list type 1>; 



< 



condition 
type 1 



lis 



l ) 



: : =<digit 



s izes>< options 1 



<digit sizes> : : =<argument>=<number> | <digit 

< number > 



cond it ions > 
s izes> , <argument> 
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<number> ::=<digit>| <number ><digit> 

<digit> :: »0 1 1 | 2 | 3 ! 4 | 5 | 6 | 7 | 8 | 9 

(traditions) :: = [ < g'-° u P !>][<group 2>][<group 3>] 

<group l>::=<place valuexrel. operator xnumber> | <group>l , 
<place valuexrel. operator ><number> 

<rel. operator>:: = < \ <= \ > | > = | = | // 1 ** 

<place value> ::= UN | TE | HU | TH | TT | HT | MI | TM | HM | BI 

<group 2> ::=<element a>|<element b>|<group 2>,<element a> 

| <group 2> , <element b> 

<element a> :: = <place value> (<argument>) <rel . operator> 

<place value> (<argument> ) 

<element b> :: = <place valuexrel. operator ><number> 

<group 3> : : =<argument><rel . operator ><argument> | <group 3> , 
<argument> <rel. operator><argument> 



<tree descrl ption> : : = <condition list type 2> ; <process> ; 



/condition list 1 

\ type 2 



<relational > : : =§ 



[-'] condition 1 
<condition 3> | 
<condition list 
<condition 1>| 

< condition list 
<condition 2> | 
<condition list 
<condition 3> 



> | [-ij <condition 2 > | [ — >] 
type 2 > <relat ional > 
type 2 ><relat ional > 
type 2 xrelational > 



<condition l>::=<key word> 



<key word> : : = RIGHT | WRONG | FAST | AVERAGE | SLOW | HARD | MEDIUM | EASY 

3 ... ~ ("<machines answer>l r i „ + ~ ^ 

<condition 2>:: = i . , f [— »]<rel. operator> 

l< students answer >J L J 1 

f<students answer> 

L<machines answer 



<condition 3> 






=f<machines answ 
students answ 



;er>l . C< 

1 <ar ith op . > \ 
/er >J 1 L< 



students 

machines 



answer >/rn <rel. operator ><number> 
answer>J 1 J 1 
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<machines 


answers : : = MANS |MANS . <number> 10 . 

1 


<students 


answers : : = SANS | SANS . <number>10 . 


<process > : 


::=<proc ls<proc 2s<proc 3s<proc 4s<proc 5s<proc 6s 


<proc 1 > : : 


PR: < act ion Is 



<action 1>::= NEW , <problem format> , <digit sizes>|HARD| 
MEDIUM | EASY | REPEAT | EXAMPLE 
<proc 2>::= QU : <question> (<answer list>) 

<question> : : = ' An English language question.' 

<answer list> : : =<answer> | <answer list> , <answer> 
<answer>: := 'One word correct answer to the question.' 
<proc 3>::= ST: <statement> 

<statement ::= 'English sentence or sentences.' 



<proc 4s : : 


:= FU: <function names | FU:<function numbers 


<function 


names; := 'English name of a system function.' 


<funct ion 


numbers: :=<number> 


<proc 5> : 


:= FR:<frame names | FR: <frame numbers 



<frame name>::= 'English name of a system frame. 
<frame number >:: =<number> 

<proc 6> : : = HA: 
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GENERALIZED FLOW CHART FOR RASCAL 




Teacher 



I/O and Editing 
routines for teacher 
communications 





Student 


Obta in needed 
information 
from student 
file . 






Establish 

Levels 

Problem Types 
and Trees 








Select 

Probl 

Tyi 


em 

pe 



No 




Provide 
Assistance 
from Tree for 
Problem Type/ 




Provide any 
advanced work in 
Tree for Problem 
Type 



PRO-GEN 
generates 
a question/ 



TvdJusF 
Parameters in 
Advancement 
Mechanism 



SHOW 
presents 
problem to/ 
student 




PROBSOL' 

Calculates 

Correct 

Answer 



Adjust Level 




Revise 


Number and 




Student 


Notify Teacher 




Record 





Stop 
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HIERARCHY OF OPERATORS FOR CONVERTING 



INFIX PROBLEM FORMAT TO POLISH 



0 


1 


2 


3 


) 


( 


+ 


/ 




f 


- 


* 



HIERARCHY OF OPERATORS USED IN CONVERTING 
CONDITION LISTS FOR SELECTING 
BRANCHES INTO POLISH 
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IMPORTANT ELEMENTS IN THE INTERNAL STRUCTURE OF RASCAL 



LEVELS (1:10) 
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APPENDIX B 



RASCAL - THE TEACHER'S SIDE 
Sample Descriptions of Levels and Problem Formats 

Level 1 - ADDITION AND SUBTRACTION 

The purpose of this level is to provide practice for the understanding 
of: 1) the relationship between addition and subtraction, 2) the basic 

facts in addition and subtraction, and 3) the communative and associative 
properties of addition. 

Problem Type 1 : 

a + b = ; 

This Problem Type is intended to provide practice in the basic 

assition and subtraction facts, stressing the communative property 

of addition and the relationship of addition and subtraction. 

Problems are HARD if one number is greater than 10. 

Problems are considered MEDIUM if both the numbers are greater 

than 4. Problems are considered EASY if one number is less than 4. 

These conditions are specified to the computer as: 

HARD: a=2 , b=l, UN >10 

MEDIUM: a=l, b=l, UN(a)>4, UN(b)>4 

EASY: a=l , b=l, UN(b) >4 

Problem Type 2 : 

a + b + c = ; 

This Problem Type is intended to provide practice in add- 
ing more than two numbers in a problem. The communative and 
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associative properties of addition are stressed. Some prac- 
tice in carrying in addition is given. 

Problems are considered HARD if one number is greater than 
ten and carrying is required in the Units place. MEDIUM prob- 
lems consist of three numbers less than 9. Problems are con- 
sidered EASY if two of the numbers from 0-9 are under 5. These 

conditions are specified to the computer as: 

HARD: a=2 , b=l, c=l, UN > 10 

MEDIUM: a=l, b=l , c=l 

EASY: a=l, b=l, c=l, UN(a)<5, UN(b) <5 

Level 2 - ADDITION AND SUBTRACTION 

The purpose of the level is to provide practice for the understanding 
of: 1) the relationship between addition and subtraction, 2) the commuta- 
tive and associative properties of addition, 3) carrying in addition, 4) 
borrowing in subtraction, and 5) working with larger numbers which 
requires greater accuracy. 

Problem Type 1 : 

a + b = ; 

This type of problem is intended to provide practice in 
adding two and three-digit numbers and carrying . 

HARD problems are numbers in the hundreds where carrying 
is required in the Units and Tens place. In MEDIUM problems, 
there is carrying in the Units place only. MEDIUM and EASY 
problems consist of numbers between 10 and 99. EASY problems 
require no carrying. These conditions are specified to the 
computer as: 
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HARD: 



a=3 , b=3 , UN >10, TE >10 
MEDIUM: a=2 , b=2 , UN >10, TE <10 
EASY: a=2 , b-2 , UN <10 , TE< 10 

Problem Type 2 : 

c - b = ; 

This Problem Type is intended to provide practice in borrow- 
ing in subtraction and working with larger numbers. 

HARD problems, consisting of numbers between 100 and 
9999, require borrowing in the Units and Tens place. MEDIUM 
problems, numbers 10 and 99, also require borrowing. EASY 
problems require no borrowing and are numbers between 10 and 99. 
These conditions are specified to the computer as: 

HARD: c=4 , b=3 , c>b, UN(b)>UN(c), TE(b) >TE(a) 

MEDIUM: c=2,b=2,c>b, UN(b)>UN(c) 

EASY: c=2 , b=2 , c> b, UN(b)<UN(c) 

Problem Type 3 : 

a + b + c = ; 

This Problem Type is intended to provide practice in adding 
three larger numbers, carrying, and understanding the communa- 
tive and associative properties of addition. 

All problems require carrying in the Units, Tens and ITun- 
dreds places. They differ in that HARD problems consist of 
numbers from 100-999; MEDIUM, from 10-99; and EASY, from 
1-99, where one number is less than 10. These conditions are 
specified to the computer as: 
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HARD: 



a=3, b=3 , c=3 , HU >10, TE *0, UN> 10 



MEDIUM: a=2, b=2, c=2, TE >10, 
EASY: a=2, b=2 , c=l, TE >10, 



UN >10 
UN >10 
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SAMPLE TREE FOR LEVEL 1 PROBLEM TYPE 1 
A. DIAGRAM OF TREE 
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B. DESCRIPTIONS OF CONDITIONS AND PROCESSES FOR SAMPLE TREE 

The functions referred to in the nodes perform the following tasks: 

1 . Inverse - Changes a problem to the inverse of the 

problem, e.g., a+b=c c-a=b. 

2 . Number Line - Presents the student with a number line 
3 . Objects - Presents the student with a picture of the 

* * * -k * * 

problem, e.g., 4+2= ; 4 + 2 

NODE 1 

The student has answered the question correctly, and the teacher 
desires to stress the communative property, so ask 'b+a‘ 

COND: RIGHT; 

PROC: PR: NEW, b+a= ; 

NODE 2 

The student has answered the question incorrectly, and the teacher 
desires to give him another chance before proceeding further. 

COND: WRONG; 

PROC: PR: REPEAT; 

NODE 3 

The student has answered the question 'b+a' correctly, and if it 
is a MEDIUM or EASY question, the teacher desires to drill him further on 
the family of facts by asking 'Answer-a= '. 

COND: RIGHT & HARD; 

PROC: FU: INVERSE; 

NODE 4 

The student has answered the question b+a incorrectly and the 
teacher desires to follow the same steps as for a+b. 
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COND: WRONG 

PROC: GO: NODE 2; 

NODE 5 

The student has answered the question 'Answer-a= ' and for further 

drill, the teacher desires to ask 'Answer-b= ' . 

COND: RIGHT; 

PROC: FU: INVERSE; 

NODE 6 

The student has answered the question 'Answer-b= ' incorrectly and 
appears to have added instead of subtracted. 

COND: WRONG & SANS = a + b= ; 

PROC: ST: You added when you should have subtracted.; 

NODE 7 

The student has answered the question 'Answer-a= 1 incorrectly, 

so the teacher desires to give on example of the idea that subtraction is 

inverse of addition. 

COND: WRONG; 

PROC: ST: 7+3=10, 10-3=7; 

NODE 8 

The student has answered the question 'Answer-b=' correctly and 

the teacher desires to generate a new problem. 

COND: RIGHT; 

PROC: HA:; 

NODE 9 

The student has answered the question 'Answer-b= ' incorrectly, and 
the teacher desires to follow the same process cited when "Answer-a= ' 
is answered incorrectly. 
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COND: 



WRONG; 

PROC: GO: NODE 3; 

NODE 10 

After presentation of the statement in Node 6 , the teacher desires 

to give the student another chance at the problem. 

COND: WRONG; 

PROC: PR: REPEAT; 

NODE 11 

After presentation of the. statement in the same node, the teacher' 

wishes to follow the same process followed at Node 10. 

COND: WRONG; 

PROC: GO: NODE 10; 

NODE 12. 

The student gets the question right after the appropriate hint, and 

is to get a chance at the problem 'Answer-b= '. 

COND: RIGHT; 

PROC: GO: NODE 5; 

NODE 13 

The student still cannot get the correct answer after the hint, and 

the teacher desires to give another problem. 

COND: WRONG; 

PROC: HALT; 

NODE 14 

The student answers the question correctly on the second try and 

is allowed to proceed. 

COND: RIGHT; 

PROC: GO: NODE 1; 
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NODE 15 



The student gets the second try wrong and appears to be subtracting 
instead of adding. 

COND: WRONG & SANS=a-b; 

PROC: ST: You subtracted when you should have added. 

NODE 16 

The student gets the second try wrong and it appears he is not 

carrying. The teacher desires to show him an example. 

COND: WRONG & HARD & MANS -SANS >=10; 

PROC: PR: EXAMPLE; 

NODE 17 

The student gets the second try wrong and it appears he was just 
careless and the teacher warns him. 

COND: WRONG & HARD & MANS -SANS <10; 

PROC: ST: You added too hastily. Try it again and be 

more careful. 

NODE 18 

The student has gotten the second try wrong and none of the pre- 
vious cases fit, so the teacher desires to use the number line to give 
him a clue. 

COND: WRONG; 

PROC: FU: NUMBER LINE; 

NODE 19 

Following the clue that the student is subtracting instead of adding, 
the teacher desires to repeat the question. 

COND: WRONG; 

PROC: GO: NODE 2; 
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NODE 20 



After an example, the student gets the problem right, and the 

teacher desires that he continue. 

COND: RIGHT; 

PROC: GO: NODE 1; 

NODE 21 

Even with an example, the student still gets the question wrong, 

and so the teacher wants the lesson frame represented. 

COND: WRONG; 

PROC: GO: NODE 2; 

NODE 22 

After warning the student to be more careful, the teacher desires 

that the question be repeated . 

COND: WRONG; 

PROC: GO: NODE 2; 

NODE 23 

With the help of the number line, the student gets the question 

right and the teacher allows him to continue. 

COND: RIGHT; 

PROC: GO: NODE 1; 

NODE 24 

The number line fails to help the student so the teacher wants to 

give him some objects which he can count. 

COND: WRONG; 

PROC: FU: OBJECT; 
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NODE 25 



After a representation of the lesson frame, the student gets the 

problem right and the teacher allows him to continue. 

COND: RIGHT; 

PROC: GO: NODE 1; 

NODE 26 

Even after the representation of the lesson frame the student cannot 

get the problem right, so the teacher decides to try another problem. 

COND: WRONG; 

PROC: HA:; 

NODE 27 

After being given objects to count, the student gets the correct 

answer, he is allowed to continue. 

COND: RIGHT; 

PROC: GO: NODE 1; 

NODE 28 

Even objects to count do not help the student, so the teacher 

decides to represent a previous lesson frame on the relations of numbers. 

COND: WRONG; 

PROC: FR: 0; 

NODE 29 

After the representation of the lesson frame, the student gets the 
correct answer, but is not allowed to continue and a new problem will be 
presented . 

COND: RIGHT; 

PROC: HA:; 
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NODE 30 



Nothing helps the student, so the teacher decides to try another 
problem . 

COND: WRONG; 

PROC: HA:; 

The conditions 'SANS = a-b' and 'SANS=a+b', and the process 'GO: NODE 
(number)' used in this example are not presently allowed in the language 
for specifying Trees. They were not included originally because other 
means of accomplishing the same ideas were available. They were in- 
tended to be included later in the development of RASCAL. In preparing 
the example, however, it was thought better to use these items for the 
sake of clarity. Further discussion of these items is located in Section V. 
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RASCAL: PROC OPT I ONS < MAI N ) 



/ 3{c # # £ # ^ # :£ sje # jjc # # 3{c £ # # 5*C # # 2 (c # %. £ 5J: # # £ # ^ # # >[: £ £ £ £ # ^ sjc ^ # 2 $C # # / 



RASCAL IS THE MAIN PROGRAM AND PERFORMS THE 
SUPERVISORY FUNCTIONS OF THE SYSTEM. IT CALLS ON THE 
ROUTINES ESTAB, REFILE, PRO GEN, PROB SOL AND SHOW TO 
PERFORM MAJOR TASKS. WITHIN THE BODY OF RASCAL ARE THE- 
MECHANISMS TO OBTAIN NEEDED INFORMATION ABOUT THE STUDENT 
AND THE MECHANISM FOR DECIDING WHEN TO ADVANCE THE 
STUDENT. AS NOW WRITTEN, RASCAL PERFORMS ONLY 
THE FUNCTIONS REQUIRED OF A DRILL AND PRACTICE SYSTEM. 

ALL VARIABLES OF MAJOR IMPORTANCE TO THE SYSTEM ARE DE - 
CLARED IN RASCAL. THEY PERFORM FUNCTIONS AS FOLLOWS: 

TREE - INPUT FILE OF LEVELS, PROBLEM TYPES AND TREES., 
COPTREE - OUTPUT FILE OF LEVELS, PROBLEM TYPES AND 
TREES. 

ALPHA- CHARACTER STRING USED TO TRANSLATE AN 

ARGUMENT INTO AN ENTRY POINT TO THE ARRAY 
ARG_PTRS . 

TRANS.D - ARRAY CONTAINING KEY WORDS FOR RECOGNITION 
OF PLACE VALUE IN PROBLEM GENERATOR. 
COND_WORD - ARRAY CONTAINING KEY WORDS FOR 
RECOGNITION BY THE INTERPRETER OF 
CONDITIONS ON A NODES APPLICABILITY. 

PROB_S - STRING CONTAINING PROBLEM FORMAT. 

CONO S - STRING CONTAINING CONDITION LISTS - EITHER 

ON DIFFICULTY OF PROBLEM OR APPLICABILITY OF 
NODE. 

WORK_S - A COPY OF STRINGS WHICH WILL BF DESTROYED IN 
HANDLING, SO THE ORIGINALS WILL BE PRESERVED 
SHOW_STR - COPY OF THE PROBLEM ; PASSED TCI SHOW FOR 
PRESENTATION TO THE STUDENT. 

HARD_L - THE LIST OF PROBLEMS MISSED BY THE STUDENT. 
HARQ_L I ST - PERMANENT COPY CF ALL PROBLEMS MISSED BY 
THE STUDENT, TO BE USED AS REVIEW 
QUESTIONS . 

BUFFFR - USED TO READ RECORDS OR CARO DATA INTO 
STORAGE. 

HOLD - SAME AS BUFFER. 

❖NOTE - REALLY ONLY TWO STRINGS ARE REQUIRED; HOWEVER, 
MORE ARE DECLARED TO GIVE THE NAMES MEANING. 
LEVELS - CONTAINS INFORMATION REGARDING A LEVEL; 
LIMITED TO LO FOR PRACTICALITY. 

NAME - NAME OF THE LEVEL. 

N_P - NUMBER OF PROBLEM TYPES IN THE LEVEL. 

N_S - NUMBER OF STUDENTS WHO HAVE ENTERED THE 
LEVEL. 

NR_P_A - NUMBER OF PROBLEMS ASKED IN THAT LEVEL, 
DIVIDED BY N_S GIVES THE AVERAGE NUMBER 
OF PROBLEMS REQUIRED BY A STUDENT WHICH 
IS USED IN DETERMINING THE STUDENT ' S 
RATE. 

LEV_PTR - POINTER TO FIRST PROBLEM TYPE FOR THE 
LEVEL. 

FRM PTR - POINTER TO FRAME ASSOCIATED WITH LEVEL 
WHEN IT IS IN CORE. 

SIZE - PARAMETER REQUIRED FOR ALLOCATION OF A VARIBLE 
AMOUNT OF BASED STORAGE. 

PROB TYPE - CONTAINS THE ELEMENTS DEFINING A PROBLEM. 
N_C_S - NUMBER OF TIMES PROBLEM TYPE SELECTED 
AND PRESENTED. 

PROB I - POINTER TO INFIX EXPRESSION OF PROBLEM. 
PROB P - POINTER TO POLISH EXPRESSION OF PROBLEM. 
HARD P - POINTER TO LIST OF HARD CONDITIONS. 

MED F - POINTER TO LIST OF MEDIUM CONDITIONS. 

EASY P - POINTER TO LIST OF EASY CONDITIONS. 

ARG_F - POINTER TO LIST OF ARGUEMENTS USED IN 
PROBLEM. 

P NEXT - POINTER TO NEXT PROBLEM TYPE. 
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AND 



P_BR ANCH - POINTER TO FIRST NODE OF TREE 
ASSOCIATED WITH PROBLEM TYPE. 

PROBLEM. S - USED IN STORAGE OF BOTH THE POLISH 
INFIX EXPRESSIONS OF THE PROBLEM. 
CONDITIONS - USED IN THE STORAGE OF ALL CONDITION 
STRINGS AND ALSO THE PROCESS TO BE 
CARRIED OUT AT A NODE. 

NODE - A NODE IN A TREE. 

COND.P - POINTER TO CONDITIONS OF APPLICABILITY, 
PROC.P - POINTER TO PROCESS TO BE CARRIED OUT. 
N.NEXT - POINTER TO NEXT NODE AT SAME LEVEL 
ASSOCIATED WITH THE SAME NODE AT A 
HIGHER LEVEL. 

N.BRANCH - POINTER TO FIRST NODE AT THE NEXT 
LOWER LEVEL TO BE ASSOCIATED WITH 
NODE IN QUESTION. 

RET.P - POINTER BACK TO THE MOTHER NODE. 

SUCCESS - NUMBER OF TIMES A NODE IS ENTERED. BY 
COMPARING WITH SUCCESS OF NODE AT NEXT 
HIGHER LEVEL, A MEASURE OF THE WORTH OF 
THE NODE CAN BE OBTAINED. 

PROBLEM - STORAGE FOR NUMBERS GENERATED BY PRO-GEN 
AND ALSO PARTIAL SOLUTIONS GENERATED BY 
PROBSOL, STORES EACH DIGIT OF NUMBER 
SEPARATELY. 

ARGUEMENTS - STORAGE FOR THE ARGUMENT LIST. 

PROB.STAT - CONTAINS INFORMATION ABOUT THE STATUS OF 
A PROBLEM TYPE. 

LEVEL OF DIFFICULTY OF PROBLEMS TO BE 
GENERATED. TAKES ON FIVE POSSIBLE VALUES. 



THE 



DIF - 



0 

1 

2 

3 

4 



SCORE - 
N ASKED 

temp Rode - 
T_P - 
T A_P 
PROB 5 P 



FAILED AT EASY LEVEL 
EASY PROBLEM. 

MEDIUM PROBLEM. 

HARD PROBLEM. 

PASSED PROB.TYP E. 

STUDENT ON THAT PROBLEM TYPE. 
OF QUESTIONS ASKED. 

THE SEQUECE OF PARTIAL ANSWERS, 
NEXT TEMP NODE. 

TO LOCATION OF PARTIAL ANSWER. 

PROB-STAT 



SCORE OF 
- NUMBER 
NODES IN 
POINTER 10 
POINTER 



ARG PTRS - 



CHOICE - 



ARRAY OF POINTERS POINTING TO 
FOR CORRESPONDING PROBLEM TYPE. 

ARRAY OF POINTERS POINTING TO NUMBER TO 
REPLACE CORRESPONDING ARGUMENT. CONTROLLED 
SO IT CAN BE OVERL AYED BY A NEW PROBLEM IF 
NECESSARY. 

ARRAY CONTAINING THE ALLOWED CHANGE IN THE 
ACTIVE PLACE VALUE DIGET OF THE ARGUEMENT 
CORRESPONDING TO THE ELEMENT OF CHOICE. FIVE 
VALUES MAY BE TAKEN. (THE DIGIT MUST REMAIN 



4 

REVUE 



ST AT S 



IN THE RANGE 0 

0 - THE DIGIT MAY BE 

1 - THE DIGIT MAY BE 

2 - THE DIGIT MAY BE 

3 - THE DIGIT MAY BE 

MINIMAL AMOUT. 
THE DIGIT MAY 



9.5 

CHANGED I NY MANNER. 
INCREASED AMY AMOUNT. 
DECREASED ANY AMOUNT. 
INCREASED OR DECREASED 



NOT BE CHANGED. 

ARRAY WHICH KEEPS TF.ACK OF NUMBER OF TIMES 
PROBLEM TYPES MARKED FOR REVIEW ARE SELECTED 
AND ONLY ALLOWS PRESENTATION EVERY THIRD TIME 
- STRING CONTAINING STATUS FOR EACH PROBLEM 
TYPE IF LESSON TERMINATES PRIOR TO COMPLETING 
LEVEL. 

M_ANS_C - THE COMPUTER’S ANSWER, EACH DIGIT STORED 
SEPARATELY AS A CHARACTER. 

M ANS - THE COMPUTER'S ANSWER STORED AS A NUMBER. 
ANSWER - THE COMPUTER'S ANSWER STORED AS A CHARACTER 
STRING. 

S ANS C - STUDENTS ANSWER AS SEPARATE CHARACTERS. 
S“ANS - STUDENTS ANSWER AS A NUMBER. 

ARS CH - STUDENT'S ANSWER AS A CHARACTER STRING. 

NEED - SEED FOR RANDOM NUMBER GENERATOR. 
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S_RAT E - THE STUDENTS ABILITY: 

0 - SLOW. 

1 - AVERAGE. 

2 - FAST. 

PROB_D I F - DIFFICULTY OF A PROBLEM. TAKES ON THE SAME 
VALUES AS DIF IN PROB STAT. 

U_L - UPPER LIMIT ON RANDOM NUMBER. 

L_L - LOWER LIMIT ON RANDOM NUMBER. 

R N - RANDOM NUMBER. 

ACTIVE - POINTER TO ACTIVE PROBLEM TYPE. 

N_AC T I VE - USED TO GET REQUIRED ELEMENTS FROM ACTIVE 
PROBLEM TYPE 

❖NOTE - ACTIVE S N_ACTIVE ALSO USED IN ESTABLISHING AND 
REFILING TREES. 

P PTR - POINTER TO ACTIVE 'PROBLEM*. 

ARG PTR - POINTER TO ACTIVE ARGUMENT LIST. 

TEMP PTR - POINTER TO HEAD OF LIST OF PARTIAL ANSWERS 
T PTR - POINTER TO ELEMENTS OF PARTIAL ANSWER LIST. 
STAT PTR - POINTER TO ACTIVE PR03 STAT 
TESTlPTR - POINTER USED IN DETERMINING IF STUDENT 
PASSED OR FAILED. 

R FLAG - INDICATOR OF WHETHER PROBLEM IS A REVIEW 
PROBLEM. 

GR FLAG - INDICATOR OF WHEN TO ASK QUESTIONS ON HARD 
LIST. 

RIGHT - NR. OF QUESTIONS ON HARD_L ANSWERED 
CORRECTLY 

ASKED - NR OF QUESTIONS ON HARD L ASKED. 

COMP C - CORRECT ANSWER TO A QUESTION ON H ARD_L AS A 
CHARACTER STRING 

COMP - CORRECT ANSWER TO QUESTION ON HARD_L AS A 
NUMBER 

ANS - STUDENT'S ANSWER TO QUESTION ON HARD_L . 

GRADE - STUDENT'S SCORE ON QUESTIONS FROM HARD L. 

FAIL COUNT - NR OF TIMES STUDENT FAILED TO ANSWER 

SUFFICIENT QUESTIONS ON HARD_L TO PASS. 
COMMA, SEMI, EQUAL - POSITION OF NAMED SYMBOLS IN A 

STRING. 

LEV_NR - NUMBER OF ACTIVE LEVEL 

LE V_C - NUMBER O.F ACTIVE LEVEL AS CHARACTER STRING. 
DEPTH_ANS ~ NR OF OVERLAYS OF ARG_PTRS . 

LONG - LENGTH OF VARYING CHARACTER STRING. 

*/ 



DCL ( TREE ,COPTREE) FILE STREAM FNVI RONMENT < F ( 80 ) 1 ; 

DCL PROBSOL ENTRY ( CHAR ( 240 1 VARYING); 

DCL PRO GEN ENTRY ( CHARI 240 ) VARYING); 

DCL SHOR ENTRY! CHARI240) VARYI NO , F I XED BIN(15)J; 

DCL RANDOM ENTRY ( FIXED BIN(BI), FIXED B IN( 1 5 ) , F I XED 

BIN( 15) , FI XED B I N ( 1 5 ) ) ; 

DCL ALPHA CHAR ( 26 ) INITIAL! * ABCDE F GUI JKLMNOPQRSTUVWXYZ ' ) ; 

DCL (COND WORD (10) CHAR ( 2 ), TRANS 0(10) CHAR(2l) INITIAL 

CALL intl; 

DCL (PROB S , COND„S ) CHAR(240> VARYING; 

DCL W0RK_5 CHAR (240) VARYING; 

DCL SHO W_STR CHAR ( 240 ) VARY I NG ; 

DCL HARD_L CHAR(240) VARYING; 

DCL HARD_L 1ST CHAR(240) VARYING; 

DCL BUFFER CHAR( 80) ; 

DCL HOLD CHAR ( 80 ) VARYING; 

DCL 1 LEVELS! 10) , 

2 NAME CHAR (60 5, 

2 N P FIXED BIN! 15) , 

2 NIS FIXED B I N( 3 1 ) , 

2 NR_P A FIXED BIN! 15) , 

2 LEV_PTR PTR, 

2 FRM PTR PTR; 

DCL SIZE FIXED BIN! 15) ; 
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DCL 1 PROB_TYPE BASED! PTP ) , 

2 N_0 S FIXED BIN! 31 ) , 

2 PRC B_I PTR, 

2 PROB_P PTR, 

2 HARD_P PTR, 

2 MED_P PTR, 

2 EASY_P PTR, 

2 ARG_P PTR, 

2 P_NEXT PTR, 

2 P BRANCH PTR; 

DCL 1 PROBUEM_S BASED! PSP), 

2 P NR FIXED B IN C 15* * 

2 PT<OB_STR CHAR (SIZE REFER ( P_NR) ) ; 

DCL 1 CONDITIONS BASED! CP i, 

2 C NR FIXED BIN! 15) , 

2 CUND CHAR(SIZE REFER! C NR ) ) 5 

DCL L NODE BASED! NP), 

2 COIMD_P PTR, 

2 PROC_P PTR, 

2 N_N EXT PTR, 

2 N BRANCH PTR, 

2 R’ET_P PTR, 

2 SUCCESS FIXED BIN! 15 ) ? 

DCL 1 PROBLEM BASED (PP), 

2 DIGFTS FIXED BIN! 15) , 

2 PROB (SIZE REFER (DIGETS ) ) FIXED BIN! 15) 

DCL 1 ARGUEMENTS BASED! AP), 

2 NR FIXED BIN! 15! , 

2 ARGUE (SIZE REFER! NR ) ) CHAR! 1 ) ; 

DCL 1 PROB ST AT BASED! PSTP), 

2 DIF FIXED BIN! 15) , 

2 SCORE FLOAT BIN! 21), 

2 N_ASKED FIXED BIN! 15) ; 

DCL 1 TEITP_NODF BASED! TNP1, 

2 T_P PTR, 

2 T_A_P PTR; 

DCL PROB_S P < 10) PTR; 

DCL ARG_P TRS ( 26 ) CONTROLLED PTR; 

DCL CHO I C E ( 26 ) CONTROLLED FIXED BIN(15); 

DCL REVUE (10) FIXED BIN! 15); 

DCL STAT S CHAR (10) VARYING; 

DCL M_AN?i>_C (10) CONTROLLED CHAR(l); 

DCL M ANS FIXED BIN! 155 ; 

DCL AHSWFR CHAR! 10) VARYING; 

DCL S_AN S_C ( 10 ) CONTROLLED CHAR(l); 

DCL S ANS FIXED BIN (15); 

DCL ARS CH CHAR! 10) VARYING; 

DCL S RATE FIXED BIN! 15); 

DCL PROB_DIF FIXED BIN(15>; 

DCL NEED FIXED BIN! 31 ) ; 

DCL ( U_L , L_L ) FIXED BIN! 15); 

DCL R N FIXED BIN! 15) ; 

dcl (Active, n_active,p_ptr) ptr; 

DCL ( ARG_PTR,TEMP_PTR,T_PTR) PTR; 

DCL ST AT_PTR PTR; 

DCL TEST_PTR PTR; 

DCL (GR FL AG , R_FL AG ) BIT(l); 

DCL RIGRT FIXED BIN! 15); 

DCL ASKED FIXED BIN! 15) ; 

DCL COMP C CHAR! 10) VARYING; 

DCL COMP FIXED BIN! 15) ; 

DCL ANS FIXED BIN! 15? ; 

DCL GRADE FLOAT BIN(21); 

DCL FA I L„COUNT FIXED BIN(15); 

DCL (COMMA, EQUAL) FIXED BIN! 15); 

DCL SEMI FIXED BIN! 15 ) ; 

DCL LEV_NR FIXED BIN(15); 

DCL LEVEL_C CHARO) VARYING; 

DCL DEPTH_ANS FIXED BIN! 1 5 » ; 

DCL LONG FIXED BIN! 15) ; 

DCL NR ST FIXED BIN! 15); 

DCL NR_ST C CHAR! 15) ; 
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/^ 

ESTABLISH LEVELS , PROBLEM TYPES AND TREES IN CORE. 

ONCE THE LEVEL NUMBER IS KNOWN THE STATUS ARRAYS FOR THE 
NUMBER OF PROBLEMS AT THAT LEVEL ARE ALLOCATED. 

ALSO INITIALIZE RANDOM NR. GENERATOR. 

*/ 

CALL ESTAB; 

DISPLAY! ' ENTER SEED*); GET L I ST( NEED J ; 

CALL RANDOM ( N EED f 0 r 9 » R_N ) ; 

/* 

GET ALL NECESSARY INFORMATION ABOUT A HYPOTHETICAL 
STUDENT. IN PRACTICE THIS INFORMATION WOULD BE OBTAINED 
FROM STUDENT FILES. 






*/ 



HARD_L = • 5 ; 

DISPLAY! ' ENTER LEVEL NUMBER 1 ); 

GET LIST (LEV_NR) ; 

DO I = 1 TO N_P ( LEV_NR ) ; 

ALLOCATE PROB_ST AT ; 

PROB.S P(I) = PSP; 

END; 

DO I = N P(LEV_NR>+1 TO 10; 

PR0B3_P ( I ) = NULL ; 

END; 

MOREL .'DISPLAY! e ENTER HARD L 1ST ' IREPLY t HOLD) ; 

/ # ❖ £ ❖ ^ 

/ ^ 

IF THE HARD LIST IS BLANK THEN THE STUDENT IS 
STARTING IN THE LEVEL AFRESH. INITIALIZE PRO B_ST AT . 

*/ 

/# # # ^^^C5js >Jc3jc^c ##### ###### 

IF HOLD = * « 

THEN DO; 

N S( LEVEL NR) = N S(LEV_NR) + 1; 

DO I = I TO 10 WHTLEIPROB S_P(I)-»= NULL); 

ST AT_PTR = PROB_S_P(lT; 

ST AT_PTR -> DIF = 1 ; 

ST AT_PTR -> SCORE = 0; 

STAT_PTR -> N_ASKED = 0; 

END; 

end; 

ELSE DO; 

/* 

IF HARD LIST IS NOT BLANK THEN RESTABLISH THE 
PROB_ST AT ARRAYS TO THE SAME VALUE THEY LAST HAD WHEN 
THE LESSON TERMINATED. 

*/ 



SEMI = I NDEX ( HOLD j 1 , • ) ; 

IF SEMI = 0 
THEN DO; 

HARD L = HARD_L | | HOLD; 

GO TO MOREL; 

END; 

HARD L = HARD _L II SUBSTR ( HOLD , 1 , SEM I -1 ) ; 

DISPLAY ( 'ENTER STUDENT STATUS FOR EACH PROB_TYPE • ) 
REPL Y! STAT_S ) ; 

DO I = 1 TO 10 WHILE! SUBSTR! STAT_S, 1 » 1 ) -»= ' '); 
STAT PTR = PR0B_S_P!1); 

STATlPTR -> DIF = SU BSTR ( STAT_S , 1 , 1 ) ; 

DISPLAY! 'ENTER SCORE'); 

GET LIST ( STAT_PTR->SCORE ) ; 

DI SPLAY! • ENTER NUMBER ASKED'); 

GET LIST ( STAT_PTR->N_ASKED) ; 

STAT_S = SUBSTR! STAT_S » 2 ) ; 

end; 

end; 
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SET UP TO BEGIN ASKING QUESTIONS. 

*7 

/ * ****** *** *** **** ^S**************************** ********** / 

FAIL COUNT = 0; 

ALLOCATE ARG_PTRS ; 

ARG_PTRS - NULL? 

ALLOCATE CHOICE; 

CHOICE = 0; 

/ -J*> \V ^ -X X X X X X X- X X X X X X X X X X X X X X X X %V X X X X X X v^ ■'*" X X X X %J* X X X X %'/■ %V X X X X X x / 
«y*» ^ ^ ^ ^ -y» -y» *y ^ ^|< ^ - #yv <*,v -Y* y* *v ^ T* 'v *1^ *4^ *V ^ ^ **1^ ^ Y* Y 1 * *v ''r "P "\ - ^ <y n ■t y r y* **%* Y^ >|S ^ / 

/* 

SELECT A PROBLEM TYPE TO ASK. 

*/ 

Rl: ACTIVE = LEV PTR( LEV_NR ) ; 

CALL RANDOM! 0? 1 , N„P ( L EV NR),R_N>; 

DO P NR = 2 TO R_N; 

Active = active -> p_next; 

end; 

STAT_PTR = PROB _S_P ( R_N ) ; 

/*********************************************************/ 
/ ^ 

DETERMINE THE DIFFICULTY OF THE QUESTIOiN TO BE ASKED 

*/ 

^ y,; ^ ^ ^ ^ jJ« i]( ^ 'Jc ^ v y 'I' v y * r V ^ V ^ )Jc ij; ^c>[; ?!^ ^ ^ ){c i|t ^ ^r- ;J; V ‘r ^ t ^ ^ V V V ^ V *fi V / 

IF STAT_PTR -> DIF = 4 | ST AT„PTR->DI F^O 
THEN GO TO REVIEW; 

IF ST AT_PTR -> DIF = I 
THEN DO; 

N„AC T I VE = ACTIVE -> EASY_P; 

WORK_S - N_ACT I V E -> COND; 

END ; 

IF STAT_PTR -> DIF = 2 
THEN DO; 

N_AC T I VE = ACTIVE -> MED P; 

WORK_S = N_ACT I VE -> COND; 

END; 

IF ST AT_PTR -> DIF = 3 
THEN DO; 

N ACTIVE = ACT I VE-> HARD P; 

WDRK_S = N_ACT I VE -> COND; 

END; 

/*****❖***********:$«*❖*❖&❖❖:('❖:<* 

/* 

GENERATE A QUESTION , CALCULATE AN ANSWE R , D I SP LAY THE 
QUESTION AND GET THE STUDENTS ANSWER. 

*/ 

**** ******** ***** *** **** ******** ******* ***/ 

R3 : ARG_PTR = ACTIVE -> ARG_P 5 
CALL PRO_GEN( WORK_SI ; 

N_ACT I VE = ACTIVE -> PROB I; 

SHOW_STR = N_ACT I VE -> PRt)B_STR; 

CALL SHOW ( SHOW_STR T 01 ; 

NR P_A(LEV_NRJ = NR_P_A ( L EV_NR ) + I; 

N_ACT I VE = ACTI VE-> PROB P; 

PROB_S = N ACTI VE->PROB_CTR ; 

CALL PROBSOL! PROB S ) ; 

DISPLAY! « ENTER ANSWER*) REPLY ( BUFFER ) ; 

DO WHILE ( SUBSTR ( BUFFER t I t 1 )- * ‘); 

BUFFER = SUBSTR(BUFFER,2) ; 

END ; 

ANS CH = • • ; 

DO WHILE ( SUBSTR! BUFFER, 1 , 1 ) ->= f •); 

ANS_CH = ANS CH| i SUBSTR ( BUFFER , 1,1) ; 

BUFFER = SUBSTR ( BUFFER, 2) ; 

END; 

S ANS = ANS_CH; 

LDNG = L ENGTH ( ANS_CH) ; 

ALLOCATE S ANS_C; 

S_ANS_C = T • ; 
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DO I = LONG TO 1 BY -1; 

S_ANS_C ( I ) = SUBSTFU ANS_CH, 1 , 1 ) ; 

ANS_CH = SUBSTR ( ANS_CH j 2 ) ; 

END; 

IF R .FLAG 

/ ^ 

IF THIS WAS A REVIEW PROBLEM THEN ONLY CHECK TO SEE 
IF ANSWER OF STUDENT IS CORRECT, IF IT IS AND THE 
STUDENT IS FAILING THE PROBLEM TYPE THEN UPDATE THE SCORE 
IF STUDENTS ANSWER IS WRONG THEN ADD TO H ARD_L AND GIVE 
CORRECT ANSWER. IF STUDENT IS FAILING PROS TYPE THEN 
CHECK TO SEE IF SCORE LESS THAN -1.0. 



THEN DO; 

IF S_ANS -.= M_ANS 
THEN DO; 

POSIT = INDEX (SHOW STR, 1 ?*); 

SHOW_STR = SUBSTR(SHOW_STR,l,POSIT-n ; 
IF H ARD_L= ,s 

THEN HARD_L = SHOW_STR || ANSWER; 



l ^ • 



*/ 

<*/ 



ELSE HARD_L = HARD L. 
DISPLAYCTHE CORRECT 

GO TO next_prob; 

end; 

IF ST AT_PTR~>D I F = 0 
THEN DO; 

IF S_ANS = M_ANS 
THEN ST AT_PTR->SCORE 
ELSE ST AT_PTR-> SCORE 
IF STAT PTR->SCORE > 
TITER DO; 

STAT PTR-> DIF = 
GO TO NEXT_PROB; 

end; 

ELSE GO TO CHFAIL; 



SHOW 
ANSWER IS 



STR || ANSWER; 
' ‘ ‘ ANSWER | | ‘ . 



) ; 



STAT 

STAT 

.5 



PTR— > SCORE* . 2 : 
PTR-> SCORE-. 2 : 



ST AT_PTR-> DIF + 1; 



END ; 

END; 

/ ^ 

ADJUST THE STUDENT'S SCORE ON THE PROBLEM TYPE JUST 
ASKED. 



*/ 

IF S_ANS = M_ANS 
THEN DO; 

IF STAT PTR -> DIF = 1 

THEN ST7ST PTR -> SCORE = STAT„PTR -> SCORE + .2; 

ELSE STAT PTR -> SCORE = STAT PTR -> SCORE + .1; 



END; 

ELSE DO; 

POSIT = INDEX ( SHOW_STR ,'?*); 

SHOW STR = SUBSTR ( SHOW STR , 1 , POSI T-l ) ; 

IF HARD L= 1 e 

THEN HARD_L - SHOW_STR || ANSWER; 

ELSE HARD_L = HARD_L I | ! , ' I I SHOW_STR II ANSWER; 
DISPLAY ('THE CORRECT ANSWER IS « I | ANSWER I I ■ . 8 ) ; 
IF ST AT_PTR -> DIF = 1 

THEN ST AT_PTR -> SCORE = STAT_PTR-> SCORE - .2; 
ELSE STAT_PTR -> SCORE = ST AT_PTR -> SCORE - .1; 

END; 

STAT_PTR -> N ASKED = STAT_PTR-> N_ASKED + l; 

IF STAT_PTR->'SCORE >= .7 

THEN STAT PTR->DIF = ST AT_PTR->D I F + 1; 

IF STAT_PTR->SCORE <= -.5 

THEN STAT_PTR->DI F = ST AT_PTR->D I F - 1; 

IF ST AT_PTR — >D I F = 4 
THEN GO TO CHFIN; 

IF STAT PTR->DIF = 0 
THEN GO TO CHFAIL; 
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/* 

ERASE THE PARTIAL ANSWERS GENERATED IN SOLVING THE 
PROBLEM AND GENERATE THE NEXT PROBLEM. 

*/ 

/ >J: ^ ^ ^ ^ 3|^ ^ 3^: ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ £ -!< X' :$c -o £ £ # $ / 

NEXT_PROB : DO I = 1 TO TEMP; 

T_PTR = T EMP_PT R— > T_P; 

FREE TEMP_PTR->TEMP„NODE; 

TEMP_PTR = T_PTR; 

END; 

DO I = 1 TO 26; 

IF ARG PTRSU i -»= NULL 
THEN DO; 

T„PTR = ARG_PTRS ( I ) ; 

FREE T PTR->PROBLEMj 

arg_ptKs(ij = null; 

end; 

GO TO R1 ; 

/£ * # # £#*### ##*#### ####### Jjc 

/* 

CHECK IF ALL PROBLEM TYPES IN THE LEVEL HAVE 
BEEN SUCCESSFULLY COMPLETED. IF SO THEN ASK QUESTIONS ON 
HARD_L AND DETERMINE GRADE FOR STUDENT, IF GRADE > .70 
THEN TERMINATE THE LESSON. ELSE RESET PROBLEM DIFFICULTY 
IN ALL PROBLEM TYPES AND TRY AGAIN. 

*/ 

/ # # # # # >Jc if. sjc # * # 3{i ^ aj£ * # # * # 5*C £ # ^ # # £ * # ^ # # ❖ ❖ * ❖ # ❖ # # sjc j*c £ sjc ^ 4c * £ £ £ # :$c £ # # / 

CHF IN:DO 1 = 1 TO 10 WHILE! PROB_S_P( I )-«=NULL ) ; 

TEST_PTR = PROB_S_P(I); 

IF TEST_PTR— >DI F < 4 
THEN GO TO Rl; 

END; 

RIGHT = 0; ASKED = 0; 

IF HARD_L = * * 

THEN DO; 

LEV NR = LEV_NR + 1; 

GO TO FIN; 

END; 

GR_FLAG = «0‘B; 

WORK_S = * • ; 

R2: COMMA = I NDEX (HARD_L , • , * » ; 

IF COMMA = 0 
THEN DO; 

HOLD = HARD L; 

GR_FL AG = • T ‘ B ; 

END ; 

ELSE DO; 

HOLD = SUBSTR ( HARD L f 1 » COMMA- 1 I ; 

HARD L = SUBSTR ( HARD_L, COMMA+1 ) ; 

END; 

EQUAL = INDEX!HOLD» •=* ) ; 

COMP_C = SUBSTR ( HOLD, EQUAL+1 i ; 

COMP = COMP C; 

HOLD = SUBSlRIHOLD, 1 , EQUALI ; 

ASKED = ASKED + 1; 

DISPLAY!* ENTER ANSWER*); 

GET LIST <ANS); 

IF COMP - ANS 
THEN DO; 

RIGHT = RIGHT + I; 

IF GR_FL AG THEN GO TO GRAD; 

ELSE GO TO R2 ; 

END; 

ELSE DO; 

WORK S = WORK_S i I HOLD I I COMP_C| I * , 1 *, 

IF GR FLAG 
THEN GO TO GRAD; 

ELSE GO TO R2; 

END; 
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GRAD: IF WORK_S -■=' ' 

THEN DO; 

LONG = LENGTH! WORK S) ; 

W 0 R K_ S = SUBSTR { WOFK_S » 1 » LONG- 1 ) ; 

HARD_L = WORK S’, 

END; 

GRADE = RIGHT/ASKED; 

IF GRADE > .70 
THEN DO; 

HARD LIST = HARD_LIST| |HARD_L ||'i'; 

LEV TsJR = LEV_NR + 1; 

GO TO FIN? 

END; 

ELSE DO; 

FAIL COUNT = FAIL COUNT +1; 

IF FAIL_CQUNT > 3 
THEN GO TO TEACHl; 

DO I = l TO 10 WHILE ( PROB_S P ( II -*=NULL I ; 
STAT_PTR = PROB_S_P ( I ) ; 

STAT_PTR -> DIF = STAT PTR->DIF - FAIL_COUNT 
GO TO NEXT_PROB; 

END; 

end; 



/* 



if if if # if ifc if if if i,' if if % if if if if if if if ic ic if if i: 



f 



/ 



IF THE SCORE FOR A PROBLEM TYPE GOES BELOW -1.0 OR 
A GIVEN PERCETAGE OF PROBLEM TYPES HAVE SCORES BELOW - 
THEN DEMOTE THE STUDENT AND NOTIFY THE TEACHER. 



/ YYYYYYYYYY YYY YYYY Y YY YY Y YYYYY YYY YYY YYYYYYYYYY YYY YYYY YYYY 

CHFAIL: IF STAT_PTR ->SCORE < -I 
THEN DO; 

LEV NR = LEV_NR -I; 

GO TO TEACH2; 



END; 

K — Q • 

DO 1 = 1 TO 10 WHILE! PROB S_P ( I ) -=NUL L ) ; 
T E S T_ P T R = PROB_S P < IT; 

IF TEST_PTR -> DIF = 0 
THEN COUNT = COUNT +1; 

K = K + l; 

END; 

FAIL = COUNT/K; 

IF S_RATE = 0 
THEN IF FAIL > .25 
THEN DO; 

LEV_NR = LE V_NR -1; 

GO TO TEACH2; 

END; 

IF S_RATE = I 
THEN IF FAIL > .50 
THEN DO; 

LEV_NR = LEV_NR - 1; 

GO TO TEACH2; 

END; 

IF S_RAT E = 2 
THEN IF FAIL > .75 
THEN DO; 

LEV NR = LE V_NR -I; 

GO TO T EACH 2 ; 



.5 

*/ 

YY/ 



END; 

GO TO NEXT PROB; 

/ :{< YYY YYYY YYY>? YYYYY yyyyyyyyy yyyyy yyyyy yyyyyyyyyyy yy yy yy yyyy / 
/Y 

CHECK TO SEE IF THIS IS THE THIRD TIME A PROBLEM 
MARKED FOR REVIEW HAS BEEN SELECTED. I, F IT IS ALLOW THE 
PROBLEM TO BE ASKED, ELSE GO SELECT ANOTHER PROBLEM TYPE 

y/ 

/YYYYYYYYYY YYY YYY YYYY Y YYYY YYYY YYYY YY YYYY YYYY YYYY YYYY YYYY YY/ 
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3 



REVIEW: IF REVUE ( R_N ) = 

THEN 00; 

R_FL AG = *I e B; 

REVUE (R N) = 0; 

IF STATlPTR -> DIF = 4 
THEN DO; 

N_ACT IVE = ACTIVE -> HARD_P ; 

WORK_S = N_ACT IVE -> COND; 

END; 

ELSE DO; 

INACTIVE = ACTIVE -> EASY P; 

WORK S = N ACTIVE -> COND; 

END; 

GO TO R3 ; END; 

ELSE DC * 

REVUE (R_N) = REVUE ( R_N) + 1; 

GO TO Rl; 

END; 

TEACH! : DI SPLAY (* STUDENT HAS FAILED TO ADVANCE IN 
DISPLAY! • ASSISTANCE REQUIRED* ); 

GO TO FIN; 

TEACH2 :D ISPLAY! • STUDENT LEVEL REDUCED BY ONE . ' I ; 
GO TO FIN; 

F IN: DISPLAY ( 6 LESSON COMPLETED. 



4 TRIES. * ) 



• ) 

# # * * # / 



RESTORE THE TREES , PROBLEM TYPES AND LEVELS TO BACK-UP 
STORAGE . 



/ ^/ "X- vV 

nr -v* n* -v* *r* 0 c* -v 

CALL REFI 
END RASCAL; 



^ ^ ## 5{c >Jc :{c #:(<: yc :{c yc j$c 5jc # # 5js 

le; 



*/ 
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I NTL : PROC 



/* 



I NTL INITIALIZES ALL THE KEY WORD ARRAYS USED IN 
RASCAL., 

*/ 

/ # 5jc 'if.if. 5^^C^C5jc ## # >JC5{; # ### jfc S$C ^OjC 5$S # 5$C %C jjc # S{S #2^ ^ # 3fc I$C# # # $Z # # 5»< ^C / 



TR ANS_D ( I } =' UN* ; 
TRANS_D ( 2 ) = ' TE • ; 
TRANS_D (3 ) ='HU'; 

TR ANS_D ( 4 ) = ' TH* ; 
TRANS_D ( 5 I = ' TT ' ; 

TR ANS_D ( 6 ) = ' HT • ; 
TRANS_D ( 7 ) = 5 MI * ; 
TRANS_D ( 8 ) = ‘ T M ' ; 
TRANS_0 ( 9 ) = 1 HM ' ; 
TRANS. D ( 1 0 ) = ‘ B I e ; 
COND_WORD ( 1 I = • R I * ; 
COND_WOKD { 2 ) = ' WR' 5 
COND_WORD ( 3 ) = 1 FA • ; 
C0ND_W0RD(4I = ‘ AV‘; 
COND_WORD ( 5) = *SL'; 
COND_WORD ( 6 ) = 'HA*; 

C OND_WOR 0(7} = ‘ME 1 ? 
C0ND_W0RD ( 8 i = «EA‘J 
C0ND_W0RD ( 9 5 = • SA»; 
C0ND_W0RD( 10) = «MA»; 
END I NTL? 



RANDOM: PROCITYPE, L_L,U_L,RN) ; 



/ '•' 

RANDOM RETURNS A PSUEDO-RA NDOM NUMBER IN THE INTERVAL 
SET BY U_L AND L L. IF TYPE IS ZERO THEN THE NEXT VALUE 
IN THE SEQUENCE IS TAKEN. IF TYPE IS A POSITIVE INTEGER 
THEN THE SEQUENCE STARTS AT THE VALUE DETERMINED BY TYPE. 
IF TYPE IS NEGATIVE THEN THE SEQUENCE STARTS AGAIN. 

❖ / 



DCL (TYPE* RV STATIC INIT(35871! FIXED BINI31); 
DCL RL FIXED BI N ( 3 1 ) ; 

DCL R FLOAT B I N ( 2 1 ) STATIC; 

DCL RD FLOAT BINI2L); 

DCL ( U_L » L_L ) FIXED BINI15); 

DCL RN FIXED BIN( 15 ) J 
IF TYPE -.= 0 
THEN IF TYPE < 0 

THEN RV = 3587; 

ELSE RV = TYPE; 

RV = MOD ( RV * 3587,5242881; 

R = RV; 

R = MODIR, 32768 1/32768; 

RD = ( ( R *(U_L - L_L +1)) + L_L ) ; 

RL = RD; 

RN = RL; 

END RANDOM; 
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SHOW : PROC ( SHOW_S , N ) 



/* 

/* 









SHOW DISPLAYS THE PROBLEM TO THE STUDENT, REPLACING 
THE ARGUEMENTS IN THE PROBLEM FORMAT WITH THE NUMBERS 
GENERATED BY PRO.GEN. ALSO •** ARE CHANGED TO «X { TO MAKE 
THE PROBLEM MORE LIKE WHAT THE STUDENT IS EXPECTING. 
SHOW_S - A COPY OF THE PROBLEM FORMAT. 

ARG_N - THE NUMBER IN THE ARRAY ARG_PTRS WHERE THE 

POINTER, TO THE NUMBER WHICH IS TO REPLACE AN 
ARGUMENT, IS STORED. 






+ 4 

'*/ 



OCL S HOW_S CHAR ( 240 I VARY ING ; DCL P PTR PTR ; 

DCL N FIXED BINIL5)? DCL NUMBER C CHAR ( 9 ) VARY ING ; 

DCL ARG_N FIXED BIN! 15); DCL ARG CH75R(1); 

DCL NUM FIXED BIN ( 15) ; 

Si: IF N= 0 
THEN DO; 



/ st» */✓ ^ +&* »X» 4^ O* ^ Vf' ^ <JU 

/ ^ 



>{: 5jc 5jc ^ ?Jc :$? 3fc :£ ^ :& ^ # s}c:{c ❖ # / 



FOR EACH NON NULL POINTER IN ARG PTRS SEARCH SHOW.S 
FOR THE OCCURANCE OF THE ARGUMENT CORRESPONDING TO ARG_N 
AND REPLACE IT. 



*/ 

/ 3$C # J$C >}C =JC # 3$C 5jC # # # # jjc # :$C ij? & # Sjc # # # 5}C 5)t ^ ^ : # * # # # # # # %. # # £ # 'J t H 3?? 3jC 3{o^ # 3jt # / 



S2:D0 ARG N = 1 TO ARG PTR->NR; 

ARG = ARG__PTR-> ARGUE ( ARG.N ) ; 

NUM = INDEX! ALPHA, ARG) ; 

P_PTR = ARG_PTRS(NUM); 

NUMBER = 0; 

DO I = 1 TO P_PTR— >D IG ET S ; 

NUMBER = NUMBER + ( P_PTR-> PROB ( I) * < L 0** ( I - 1 1J ) 
END; 

S3: POSIT = INDEX! SHOW_S, ARG ) ; 

NUMBER. C = NUMBER; 

DO WHILE ( SUBSTR ( NUM BE R„C ,1,1) =* M; 

NUMBER.C = SUBSTR ( NUMB ER_C, 2 ) ; 

END; 

IF POSIT = 0 
THEN GO TO SOUTl; 

c show s = * ' ; 

IF POSIT -*= 1 

THEN C_SHOW_S = SUBSTR! SHOW_S , 1 , POS IT — 1 ) | | 8 ‘; 

SHOW.S = NUMBER.C | I ' • | I SUBSTR ( SHOW.S , POS 1 f+ 1 ) ; 

SHOW.S = C_SHOW_S| I SHOW.S; 

GO TO S3; 



SOUTl : END; 

/ # ^ # # 5{c 5jc if if If. 5^ >Jc # sjc 'if 5j< ^ if if if if if 3^C if: if if if 3^ if if if if # if if if ^ 5^ 5^ 3$C if # # # 

/* 



/ 



REPLACE •*' WITH 'X'. 

❖ / 

/#### s}: #######################>;«# ##########5^ ###*### sJc:;<:S<#s!c##s*#/ 

S4:P0SIT = INDEX! SHOW.S, ■**) ; 

IF POSIT -= 0 
THEN DO; 

SHOW S = SUBSTR ( SHOW S , 1 , POST T-l ) I I ' X « | | 

SUBSTR! SHOW.S, POS IT+1 ) ; 

GO TO S4; 

END; 

POSIT = INDEX (SHOW.S ‘ ; 

SHOW.S = SUBSTR { SHOW.S , 1,P0SIT-1) | | * ? • ; 

DISPLAY! $HOW_S ) ; 

RETURN; 

END ; 

END SHOW; 
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PRO_GEN : PROC ( WORK_S) ; 



/* 

PRO_GEN HANDLES THE GENERATION OF NUMBERS TO REPLACE 
THE ARGUMENTS IN THE COPY OF THE PROBLEM FORMAT WHICH IS 
PASSED AS A PARAMETER . THE NUMBERS ARE STORED IN THE 
BASED ARRAY PROBLEM. POINTERS IN ARG PTRS ARE ESTABLISHED 
TO INDICATE WHERE THE NUMBER IS STORED AFTER GENERATION. 
KEY ELEMENTS USED ONLY IN PRO_GEN ARE: 

WORK_S - CONTAINS THE COPY OF THE PROBLEM FORMAT. 



HOLD 



CONTAINS THE CONDITION BEING OPERATED ON 



GT - 


INDICATES 

FOUND. 


WHERE 


IN 


WORK_S 


THE 


OPERATOR 


' > ' IS 


LT - 


INDICATES 

FOUND. 


WHERE 


IN 


WORK_S 


THE 


OPERATOR 


'<• IS 


EQ - 


INDICATES 

FOUND. 


WHERE 


IN 


WO RK_S 


THE 


OPERATOR 


1 = • IS 


LE - 


INDICATES 

FOUND. 


WHERE 


IN 


WORK_S 


THE 


OPERATOR 


' <=' IS 


GE ~ 


INDICATES 

FOUND. 


WHERE 


IN 


WORK_S 


THE 


OPERATOR 


•>=' is 


D I - 


INDICATES 

FOUND. 


WHERE 


IN 


WORK..S 


THE 


OPERATOR 


'//' IS 


MU - 


INDICATES 

FOUND. 


WHERE 


IN 


WORK_S 


THE 


OPERATOR 


IS 


COMMA 


, - INDICATES WHERE 
FOUND. 


IN WORK_S 


THE OPERATOR 



IS 



SEMI - 



« • i 



I S 



INDICATES WHERE IN WORK_S THE OPERATOR 
FOUND. 

DIFFER - CONTAINS THE DIFFERENCE BETWEEN THE ACTUAL 

NUMBER AND THE NUMBER REQUIRED TO SATISFY THE 
CONDITION BEING OPERATED ON. 

COMP - NUMBER WHICH IS REQUIRED BY THE CONDITION. 
REMAINDER - AMOUNT BY WHICH THE NUMBER BEING EXAMINED 
MUST BE CHANGED TO SATISFY THE ‘ //• AND 
'**' OPERATORS. 

PL AC E_C - CONTAINS THE CHARACTERS WHICH REPRESENT THE 
PLACE VALUE ON WHICH CONDITIONS ARE BEING 
SEARCHED FOR. 

*/ 

/***#****:{«;# Si****** *«****$#**$£««**£***$**$*$* £***$*****#♦*/ 



DCL D I V_F L AG B I T ( 1 I 5 
DCL TOTAL FIXED BINI15) ; 

DCL ANS CHAR ( 1) ; 

DCL LAST FIXED BIN( 15) ; 

DCL ( CARG I , C ARG2 ) CHAR<1); 

DCL WORK S CHARI 240) VARYING; 

DCL C WORK S CHAR (240) VARYING; 

DCL HELD CHAR ( I ^ } VARYING; 

DCL ( POSIT, NUM,OP_TOT, LIMIT) FIXED BINI15); 

DCL ARG CHAR ( 1 ) ; 

DCL G DIG FIXED BINI15) INITIAL(O); 

DCL PLACE_C CHARI 2 ) ; 

DCL (GT,LT ,EQ,GE,LE»DI,MU) FIXED BIN! 15); 

DCL LAB L I 0 : 9 ) LABEL*, 

DCL LABT8) LABEL; 

DCL OPT R CHAR I 2 ) .VARYING; 

DCL I ARG1 » ARG2, NUM1 » NUM2 ) FIXED BINI15); 

DCL I P I » P 2 ) PTR; 

DCL (DIFFER, COMP, CARRY, LAB_NR, REMAIN) FIXED BINII5); 
DCL FLAG BIT! I) ; 

DCL P PTR PTR; 

DCL (COMMA, SEMI ) FIXED BIN(I5); 
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/ ❖ ❖ ❖ ❖ * 'o ^ ^ ^ ^ ^ ^ # # # £ # # # # # ^ 3jc # £ 3j ; # #####:{*## ijc # # # # # # $' # # / 

/* 

THIS SEGMENT OF CODING DETERMINES WHICH ARGUMENTS ARE 
IN THE PROBLEM FORMAT, DETERMINES THE SIZE OF THE NUMBERS 
REQUIRED TO REPLACE THE ARGUMENTS AND ALLOCATES THE 
STORAGE FOR NUMBERS. 

*/ 

DO I = 1 TO ARG_PTR-> NR; 

ARG = ARG_PTR -> ARGUE! I); 

NUM = INDEX (ALPHA, ARG) ; 

POSIT = INDEX! WORK_S , ARG I I ■ = * 1 5 
C_WORK_S = *»; 

IF POSIT =1 

THEN COMMA = INDEX! WORK_S 
ELSE DO; 

C WORK_S = SUBSTR(WORK_S, 1 , POSIT-1 ) ; 

WORK S = SUBSTR! WORK_S, POSIT) ; 

COMMA = r NDEX ( WORK S, ( ,'!; 

END? 

IF COMMA = 0 
THEN DO; 

SEMI = INDEX! WORK_S, *; M ; 

HOLD = SUBSTR! WORK_S, 1 ,SEM1-1 ) *, 

WORK_S = • * ; 

IF C_ WO RK_S --= 

THEN C WORK S=SUBSTR!C WORK S, 1, LENGTH! C WORK S) 

- 1 T I I * ; T ; 

END; 

ELSE DO; 

HOLD = SUBSTR ( WORK S,l,COMMA-U; 

WORK_S = SUBSTR! WORK S,COMMA-H ); 

END; 

SIZE = SUBSTR! HOLD, 3) ; 

WORK S = C_WORK S { | WORK_S; 

ALLOCATE PROBLEM; 

ARG_PTRS ( NUM) = PP; 

IF SIZE > G_DI G 
THEN G_DIG = SIZE; 

END; 

/ # ### sgcsgcfcsgcsSesSc sJcjfcjfcsJc #:{< >Jc :£< 3{c :{c $ 3jc / 

/* 

THIS DO LOOP WHICH ENDS AT THE LABEL OUT1 CONTAINS 
THE MECHANISMS FOR SATISFYING THE CONDITIONS BELONGING TO 
GROUP 1 AND GROUP 2. 

*/ 

/ >jc 5{c # If. sj; jjcsjc ^ ^ 3$£ sfc ^ ijc jfc # # jjc# 3j< 2jr 3$C 5^ 5jc #3^ 5j« If. 3(C3£ # # # 5^ ^ ^ # 3{c ^ / 

N 1 : DO I = 1 TO G_DIG ; 

PL AC E_C = TRANS_D( I ) ; 

IF WORK_S = » ' 

THEN DO; 

LAST = I ; 

GO TO FILL; 

END; 

/* 

THIS DO LOOP WHICH ENDS AT THE LABEL 0UT:LAB(8) 
CONTAINS THE MECHANISMS FOR SATISFYING CONDITIONS 
BELONGING TO GROUP 1. 

*/ 

/*#********* ****£:M<** ❖#❖*#*** tf****************************/ 
N2 : DO J = 1 TO ARG_P1'R->NR; 

ARG = ARG_PTR -> ARGUE (J); 

NUM = I NDEX! ALPHA, ARG ) ; 

P _P T R = ARG_PTRS ( NUM ) ; 

CHOICE (NUM) = 0; 

U_L = 9; 

IF P_PTR->DIGETS = I & I> 1 
THEN L_L = l; 

ELSE L_L = 0; 

IF P_PTR -> DIGETS < I 
THEN GO TO OUT; 
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/ # 

THE FIRST STEP IS TO FIND ALL CONDITIONS IN THE FORM 
•PLACE VALUE (ARGJ OPERATOR * . 

*/ 



GT = INDEX! WORK S,PLACE_C 
LT = INDEX! WORK_S,PLACE_C 
EQ = INDEX! WORK_S t PLACE_C 
GE = INDEX! WORK S, PLACE C 
LE = INDEX! WORKlSt PLACElC 
D I = INDEX! WORK_S t PLACE_C 
MU = INDEX! WORK_S, PLACE. C 



• ! • 
' ( » 
• ( { 

' ( * 
r f c 

t ( 8 
• ( « 



ARG 

ARG 

ARG 

ARG 

ARG 

ARG 

ARG 



• )>• ) ; 
')<•); 
•>=•); 

8 )> = • ) ; 
•)<=•>; 
*)//*!; 
* > ** » j 



= 


OP_T OT 


* 


l; 


zr 


OP_T OT 


+ 


2; 


= 


OP_TOT 


+ 


6; 


= 


OP_T OT 


-i- 


40; 


= 


OP.TOT 


<- 


50; 


= 


OP_TOT 


+ 


TOO; 


zz 


OP_T OT 


-{• 


800 ; 



/ **********❖*******************************>}:************:(:* / 

/* 

NOW WE DETERMINE WHICH OPERATORS HAVE BEEN FOUND BY 
ASSIGNING A UNIQUE NUMBER TO EACH OPERATOR. THE TOTAL OF 
THESE NUMBERS THEN INDICATES THE OPERATORS FOUND. 

*/ 

/## sic#####*# / 

O P_ T O T = o; 

IF LT -■= 0 
THEN OP_T OT 
IF GT -«= 0 
THEN OP_TOT 
IF EQ -.= 0 
THEN OP_T OT 
IF LE -•= 0 
THEN OP TOT 
IF GE -.= 0 
THEN OP_TOT 
IF D I -i= 0 
THEN OP_T OT 
IF MU i= 0 
THEN OP_T OT 
DIV FLAG ='0*8; 

IF IIP TOT = 0 
THEN SO TO LAB L( 0) ; 

/ * * * * * * * * * * * * * * * if * * * * * * * * * * * * * * * s '(■ * * * * * * * * * * * * * * * * ** & * * * ** / 

/* 

THE NEXT SECTION OF CODE DETERMINES THE OPERATORS 
WHICH WERE FOUND AND THEN BRANCHES TO THE LABEL WHICH 
CONTAINS THE MECHANISM FOR SATISFYING THAT OPERATOR. 

*/ 

/********************************************************* / 

IMUM = OP_TOT / 100 ; 

LABOJIF NUM > 0 

THEN GO TO LAB_L( NUM) ; 

LABI : NUM = 0P.T0T/10; 

IF NUM > 0 
THEN DO; 

NUM = MOD ( OP_T OTjlOOl/lO; 

IF NUM > 0 

THEN GO TO LAB_L ( NUM ) ; 

END; 

LAB2 : NUM = MOD (OP_TOT,IOi; 

GO TO LAB_L ( NUM ) ; 

LAB3 : L AB_L ( 0 I : 

CALL RANDOM ( 0 j L_L » U_L r R_N ) ; 

GO TO INSERT; 

: /* LESS THEN */ 

IF SUBSTR! W0RK_S t LT + 6» 1)0 I* 

THEN DO; 

LT = 0; 

GO TO LAB3 ; 

END; 

LIMIT = SUBSTR! WORK_S , LT+6, 1 ) *, 

U L = LIMIT -1? 

CHOICE(NUM) = CHOICE(NUM) + 2; 

GO TO LAB3; 

LAB_L ( 2 ) : /* GREATER THAN */ 

IF SUBSTR! WORK_S ,GT+6, 1 ) < * 1 ' 



LAB_L ( 1 ) 
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THEN DO; 



LAB_L( 



L AB_L ( 



LAB_L ( 



LAB_L( 

LAB_L( 
LAB_L ( 



GT = 0; 

GO TO LAB3; 

END; 

LIMIT = SUB STR ( WORK_S » GT+6 * 1 ) ; 

L L = LIMIT + l; 

CHOICE ( NUM ) = CHOICE ( NUM ) + 1 ; 

GO TO L AB3 ; 

3) : /^GREATER THAN AND LESS THAN */ 

IF SUBSTRI WORK_S v LT-s-6, I ) < *1* 

THEN DO; 

LT = o; 

GO TO LAB_L ( 2 ) ; 

END; 

LIMIT = SUBSTRI WORK S ,LT+6, II ; 

U L = LIMIT - 1; 

CHOICE (NUM I = CHOICE (NUM) + 2; 

GO TO LAB L( 2 ) ; 

4) : /* LESS THAN OR EQUAL */ 

IF SUBSTR { WORK_S * LE+7 » 1 I < 'I' 

THEN DO; 

LE = 0; 

GO TO LAB2 ; 

END; 

U L = SUBSTR(W0RK_S,LE+7,I) ; 

IF LE = LT 
THEN DO; 

OP_TOT = OP_T OT - 1; 

LT = 0; 

END; 

CHOICE (NUM) = CHOICE (NUM) + 2; 

GO TO LAB2; 

5) : /* GREATER THAN OR EQUAL */ 

IF SUBSTR! W0RK_S,GE+7» 1 ) < *1' 

THEN DO; 

GE = 0; 

GO TO LAB2 ; 

END; 

L„L = SUBSTR(W0RK_S,GE+7 t 1 ) J 
IF GT = GE 
THEN DO; 

OP_TOT = OP_T OT - 2; 

GT = 0; 

END; 

CHOICE(NUM) = CHOICE! NUM) +1; 

GO TO LAB2 ; 

6) : /* EQUAL */ 

IF SUBSTR(W0RK_S,EQ+6,1) < ■ 1 « 

THEN DO; 

EQ = 0; 

GO TO INSERT; 

END; 

R N = SUBSTR! WORK_S s EQ+6, I ) ; 

CHOICE(NUM) = CHOICE! NUMf+4; 

GO TO INSERT; 

7) : L AB_L ( 8 ) : 

D I V_FLAG = ' I*B? 

GO TO LABI; 

9): /* LESS THAN OR EQUAL AND GREATER THAN OR EQUAL 
IF SUBSTR( W0RK_S»LE + 7 j IX s I s 
THEN DO; 

LE = 0; 

GO TO LAB_L ( 5 ) ; 

END; 

IF LT = LE 
THEN DO; 

LT = 0; 

OP_TOT = 0 P_T OT -I; 

END; 

U L = SUBSTR! W0RK_S»LE+7, I ) ; 

CHOICE (NUM) = CHOICE (NUM) + 2; 

GO TO LAB_L( 5) ; 
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/ # #**❖*##*£ ##*£*### * ** * ❖ * *❖ ** * * *** ** ** * *c * * ** / 

/* 

AFTER THE NUMBER HAS BEEN GENERATED IT IS STORED IN 
THE PROPER LOCATION BY THE NEXT SEGMENT OF CODING. 

*/ 

INSERT: 



IF DIV_FLAG 
THEN DO; 

IF DI ->= 0 

THEN LIMIT = SUBSTRI WORK_S , D I +7 , 1 ) ; 

IF MU -•= 0 

THEN LIMIT = SU3 STR ( WORK_S , MU+7 , 1 ) ; 
REMAIN = MODI R_N, LIMIT } ; 

IF REMAIN i=0 
THEN DO; 

IF CHO I CE I NUM) = 1 £R_N+L I MI T-REMA IN< 
THEN DO; 

R_N=R_N+( LIMIT-REMAIN) ; 

GO TO PUT; 

END; 

IF CHO I CE ( NUM ) = 2 £ R_N-REMAI N>=0 
THEN DO; 

R_N = R_N - REMAIN; 

GO TO PUT; 

END; 

IF R_N - REMAIN >= 0 
THEN' DO; 

R N = R_N - REMAIN; 

GO TO PUT; 

END; 

IF R_N +( LIMIT - REMAIN) < 10 
THEN DO; 

R N = R N+( LIMIT-RE MAIN) ; 
GO TO POT; 

END; 

END; 

CHOICE! NUM) = 4; 

END; 

PUT : P_PTR -> PR OB ( I ) = R_N ; 

/* 

WHEN ALL CONDITIONS, BELONGING TO GROUP 1, ON A 
PARTICULAR PLACE VALUE AND ARGUMENT HAVE BEEN SATISFIED, 
THE CONDITIONS ARE REMOVED FROM WORK S BY THE NEXT SEG- 
MENT OF CODE. THE PROCESS THEN RETURNS TO THE DO LOOP 
BEGINNING AT THE LABEL N2 TO FIND CONDITIONS, IN GROUP 1, 
ON THE SAME PLACE VALUE AND THE NEXT ARGUMENT. 

*/ 



LAB NR = l; 

LABI 1 ) : IF OT > 0 
THEN DO; 

POSIT = GT; 

GO TO REMOVE; 

END; 

LAB_NR = LAB_NR + 1; 
LABI2) : IF LT > 0 
THEN DO; 

POSIT = LT; 

GO TO REMOVE; 



END; 

LAB NR = L AB_NR + 1; 
LABI3) : IF EQ > 0 
THEN DO; 

POSIT = EQ; 

GO TO REMOVE; 

END; 

L AB_NR = LAB_NR + 1; 
LAB I 4 ) : IF LE> 0 
THEN DO; 

POSIT = LE; 
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LAB ( 5 I 



L AB ( 6 ) 



L AB ( 7 ) 



REMOVE 



GO TO REMOVE; 

END; 

LAB NR = LAB NR + 1; 

: 1 F ^E > 0 
THEN DO; 

POSIT = GE; 

GO TO REMOVE; 

END; 

L AB_NR = LAB NR+ 1; 

: IF D I > 0 
THEN DO; 

POSIT = DI; 

GO TO REMOVE; 

END; 

LAB NR = LAB NR + 1; 

I F ftU > 0 
THEN DO; 

POSIT = MU; 

GO TO REMOVE; 

END; 

GO TO OUT; 



INDEX! WORK_S , ' , * ) 



C_WORK S = « 

IF POSTT = I 
THEN COMMA = 

ELSE DO; 

C„WORK_S = SUBSTR ( WORK 
WORK„S = SUBSTR! WORK_S 
COMMA = INDEX (WORK S,‘ 

END; 

IF COMMA = 0 
THEN DO; 

SEMI 
HOLD 
WORK 
IF C* 

THEN 



_S» L, POSIT 
, POSIT) • 

» 



1 ) 



) 



= INDEX! WORK_S, « ; e ) ; 

= SUBSTR ( WORK S, It SEMI) 

WORK_S * 

C WORK 



S = 



= SUBSTR ( WORK S,l, COMMA); 
.S = SUBSTR ! WQRK_S » COMMA* 1 ) 



IF GT > 
THEN GT 
IF LT > 
THEN LT 
IF EQ > 
THEN EQ 
IF LE > 
THEN LE 
IF GE > 
THEN GE 
IF DI > 
THEN DI 
IF MU > 
THEN MU 



WORK JS 



SUBSTR (C WORK_S t 1, LENGTH! 

C_WORK S ) - 1 ) | | ' ; ' 

END; 

ELSE DO; 

HOLD 
WORK 

END; 

LONG = LENGTH ( HOLD ) : 

WORK_S = C WORK_S i | 

POSIT 
= GT - 
POS IT 
= LT - 
POSIT 
= EQ - 
POSIT 
= LE - 
POS IT 
= GE - 
POSIT 
= DI - 
POSIT 

I lie IN I'lU = MU LUITO } 

WORK_S = C_ WORK_S I |WORK_S; 

L AB_NR = LAB NR + I; 

GO TO LAB(LAE_NR); 

f jjc ^ ^ ajc :$£ •$: :$c ^ •%: ft % ■%. £ sjc ^ f 

f ^ 

WHEN ALL CONDITIONS, BELONGING TO GROUP 1, HAVE BEEN 
SATISFIED FOR ALL ARGUMENTS, CONTROL PASSES OUT OF THE 
LOOP BEGINNING AT THE LABEL N2 INTO THE NEXT SEGMENT OF 
CODING WHICH GETS THE NEXT CONDITION ON THE PLACE VALUE 
BEING HANDLED AND TESTS TO SEE IF THIS CONDITION IS OF 
THE FORM 'UN! AXUN(B) ' OR THE FORM *UN<IO«o 

*/ 

/ # # * if. £ # £ if. % ^ * £ if # -if. if 5jc & j,S. if # :f: £ ^ # if # ^ ^ * & if t- if if ❖ ❖ ❖ ❖ ❖ if £ if if * ❖ if if ❖ £ if # i- if / 



LONG; 

LONG; 

LONG; 

LONG; 

LONG; 

LONG; 

LONG: 
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OUT : L AB ( 8 ) : 

END; 

COLUMN: 

POSIT = INDEX! WOR K_S * PL AC E_C ) ; 

IF POSIT = 0 THEN GO TO OUT!; 

C_WOR K_S = • • ; 

IF POSIT = 1 

THEN COMMA = I NDE X( WO RK_S 
ELSE DO; 

C_WOR K_S = SUBSTRI WORK_S f 1 T POSIT-1 ) ; 

WORK_S = SUBSTR(WORK_S, POSIT) ; 

COMMA = I NDEX ( WORK_S, ' , ' ) ; 

END; 

IF COMMA = 0 
THEN DO; 

SEMI = INDEX(WORK_S» • ; * ) ; 

HOLD = SU BSTR ( WORK S,l, SEMI-1); 

WORK_S = • • ; 

IF C_WORK S • ' 

THEN C_WOKK_S=SUBSTR(C_WORK_S, I, LENGTH! 

C_WORK_S)--l) | | • ; ' ; 

END; 

ELSE DO; 

HOLD = SU BSTR (WORK S , I , COMMA- 1 ) ; 

WORK_S = SUBSTR(WOl?K_S,COMMA+I) J 

END; 

WORK_S = C_WORK_S | | WORK_S; 

IF SUBSTR(HOLD,3,l) = •(* 

THEN DO; 

/# *### #* #*£ ### *##**#:{< **#*:£ #** age*# #5^ ** / 

/* 

HAVING DETERMINED THE CONDITION TO BE OF THE FORM 
UNfAKUNIB), THE NEXT SEGMENT OF CODING DETERMINES THE 
TWO ARGUMENTS AND THE OPERATOR BETWEEN THEM. CONTROL THEN 
PASSES TO THE SEGMENT OF CODING SET UP TO HANDLE THAT 
OPERATOR. 









*/ 

= S'*## / 



ARG = SUB ST R ( HOLD 5 4 ? I ) ; 

NUMI = INDEX! ALPHA, ARG) ; 

PI = ARG PTRS(NUMl); 

ARG 1 = PI -> PROS { I ) ; 

HOLD = SU BSTR (HOLD, 6) ; 

OPTR = * « ; 

DO WHILE ( SUBSTR(HOLD,l ,1 ) < ‘AM; 
OPTR = OPTR || SUBSTR(HOLD, It I ) ; 
HOLD = SUBSTR (HOLD, 2) ; 

END; 

ARG = SUB ST R( HOLD, 4, I) ; 

NUM2 = INDEX! ALPHA, ARG) ; 

P2 = ARG_PTRS ( NUM2 ) ; 

ARG2 = P2 -> PROB ( I ) ; 

f ^ 

THE OPERATOR IS LESS THAN. 



IF OPTR = •<• 

THEN DO; 

IF ARGI -.< ARG2 
THEN DO; 

DIFFER = ARGI - ARG2 + 1; 

IF C HO ICE ( NUMI ) = 0 I CHO I C E ( NUM 1 ) = 2 
THEN DO; 

L_L = MINI DIFFER, ARGI ) ; 

U_L = ARGI; 

CALL RANDOM ( 0, L_L, U_L, R_N ) ; 

ARGI = ARGI - R_N; 

PI -> PROB ( I) = ARGI; 

IF ARGI < ARG 2 
THEN GO TO COLUMN; 

ELSE DIFFER = ARGI -ARG2 + 1; 
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end; 

IF CHOICE ( NUM2 ) = 0 | CHO ICE ( NUH2 )= 1 
THEN DO; 

L_L= MINI DIFFER, 9--ARG2); 

U_L = 9 - ARG2 ; 

CALL RANDOM (0 , L_L » U_L » R_N) ; 

A RG2 = ARG2 + R„N ; 

P 2 -> PROBdl = ARG2; 

IF ARG 1 < ARG2 
THEN GO TO COLUMN; 

ELSE DIFFER = ARGI - ARG2 + Ij 

END; 

DO WHILE! ARGI -*< ARG2) ; 

FLAG = ‘O' B; 

IF ARGI -i* 0 G CHOICE! NUM1J < 4 
THEN DO; 

FLAG = * I * B ; 

ARG L = ARG L -I; 

END ; 

IF ARG2 -*= 9 G CH0ICE(NUM2) -«> 3 
THEN DO; 

ARG2 = ARG 2 + 1; 

FLAG = * 1 * B ; 

END; 

IF -.FLAG THEN GO TO L_OUT; 

END; 

L_OUT : P 1 — > PROB ( I ) = ARGI; 

P2 — > PROB ( I ) = ARG2 ; 

END; 

GO TO COLUMN; 

END; 

/ jjc if. rfcsjc if 0$. it if 5jc ;jc ^ >}c age :$c s{c rfic# £ :$c jfc :$? afe >}c f 

/* 



THE OPERATOR IS GREATER T HAN® 

^ :jc^c ;{c 3}e ## jjc# # ;|c ijc # :$c # # # sj: rjc 5jc 5{c^t rjc# J 



*/ 



ARG2 



IF OPTR = f >' 

THEN DO; 

IF ARGI -.> 

THEN DO; 

DIFFER = ARG2 - ARGI + L ; 

IF CHOICE ( NUM1 ) = 0 | CHOICE(NUMl) 
THEN DO; 

L_L = MIN! DIFFER, 9-ARGI ) ; 

U L = 9 - ARGI; 

ClLL RANOOM(0,L_L,U_L,R_N) ; 

ARGI = ARGI + R_N; 

P I -> PROB! I I = ARGI ; 

IF ARGI > ARG2 
THEN GO TO COLUMN; 

ELSE DIFFER = ARG 2 - ARGI + 1; 

END; 

IF CHO ICE! NUM2 ) = 0 I CHO I C E ( NUM2 ) = 
THEN DO; 

L_L = MIN! DIFFER, ARG2 ) ; 

U_L = ARG2 ; 

CALL RANDOM (0, L_L , U_L » R_N ) ; 

ARG2 = ARG2 - R_N ; 

P 2 -> PROB! I ) = ARGL ; 

IF ARGI > ARG2 
THEN GO TO COLUMN; 

ELSE DIFFER = ARGI - ARG2 + 1; 
END; 

DO WHILE! ARGI -.> 

FLAG = • 0* B; 

IF ARGI -*=9 6 
THEN DO; 

FLAG = • 1 « B ; 

ARGI = ARGI + 1; 

END; 

IF ARG2 -i= 0 6 
THEN DO; 



= I 



ARG2 I 5 

CHOICE(NUMl) -»> 



CHO ICE ( NUM2 1 -*> 3 
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FLAG = * 1 * B ; 

ARG2 = ARG2 - 1; 

end; 

IF -'FLAG 

THEN GO TO G_OUT; 

END; 

G_OUT : P I -> PROB(I) = ARGI; 

P 2 -> PROB ( I ) = ARG25 

END; 

GO TO COLUMN; 

END; 

/ ^ 

THE OPERATOR IS EQUAL. 

*/ 

/ 5je # * Jjc # %. if if. * :}: * * « # '£ ■& « # tfi * * * ■& $ * * %. * * 4: # # * * * # # # # £ # # & % -if. if. if. # * $ # ^ % % s{c f 

IF OP TR = • = • 

THEN DO; 

IF ARG1 -.= ARG2 
THEN DO; 

IF ARGI > ARG2 
THEN DO; 

IF CHOICE (NUM1 ) =0 f CH0ICEINUM1 )=2 
THEN DO; 

PI -> PROB ( I ) = ARG2 ; 

GO TO COLUMN; 

END; 

IF CHOICE (NUM2 )=0 I CHO I C E ( NUM2 ) = 1 
THEN DO; 

P2->PR0B(I) = ARGI ; 

GO TO COLUMN; 

END ; 

REDO: FLAG = »0'B; 

IF CHOICE (NUM IK 4 
THEN DO; 

ARGI = ARGI - l; 

FLAG = ' I ' B; 

END ; 

IF ARGI -.= ARG2 
THEN DO; 

IF CHO I CE ( NUM2 ) < 4 
THEN DO; 

ARG2 = ARG2 -5- I; 

FLAG = *I'B; 

END; 

END; 

IF ARGI -.= ARG2 & FLAG 
THEN GO TO REDO; 

PI ~> PROB ( I ) = ARGI '; 

P 2 — > PROB ( 1 ) - ARG2 ; 

GO TO COLUMN; 

END; 

IF ARGI < ARG2 
THEN DO; 

IF CHOICE! NUM1 S=0|CH0ICE!NUM1)=1 
THEN DO; 

PI -> PROB (I ) = ARG2 ; 

GO TO COLUMN; 

END; 

IF CHOICE! NUM 2 )=0|CH0ICE(NUM2)=2 
THEN DO; 

P2 -> PRO B ( I ) = ARGI; 

GO TO COLUMN? 

END; 

RED A: F LAG = *0* B; 

IF CHO ICE! NUM I I < 4 
THEN DO; 

ARGI = ARGI + l; 

FLAG = ‘ I ' B; 

END; 

IF ARGI -.= ARG2 
THEN DO; 
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IF CHOICE! NUM2 ) < 4 
THEN DO; 

ARG2 = ARG2 - 1; 

FLAG = « 1 • B; 

END; 

END; 

IF ARGI -= ARG2 £ FLAG 
THEN GO TO REDA; 

PI -> PROB ( I > = ARGI ; 

P 2 -> PROB ( I } = ARG2 ; 

GO TO COLUMN; 

END; 

END; 

GO TO COLUMN; 

END; 

:$c 3jc 5$C £ 3{c ^ 3$C # # 3$S # 3$< # 5{C 3$C Jfc 5{c 5j< ifc 5jc # £ 5$C jjc SjC 3$C >Jc J$C f 

/ ^ 

THE OPERATOR IS LESS THAN OR EQUAL. 

*/ 

/ 3$C :{C j{c 3$C 3{c 3{C^C a{c 3fc £ 5^ # J$C # # 5$C # 3^ ifc 'if 2$C # ^ 2jc2^ SjC# 5$C ifc 3$C 3$C jJ? 3$C 3$C ^ >JC # jjc 3}C # %Z % f 

IF OPTR = •<=• 

THEN DO? 

IF ARGI > ARG2 
THEN DO; 

DIFFER = ARGI - ARG2J 

IF CHOICE (NUM1) = 0 | CHOICE! NUM2 ) = 2 
THEN DO; 

L_L = MINI DIFFER, ARGI ) ; 

U L =• ARGI; 

C^LL RANDOM (0 T L _L , U_L , R_N i ; 

PI -> PROB ( l J =' ARGI - R_N; 

GO TO COLUMN; 

END; 

IF CHOICE! NUM2) = 0 | CHO ICE { NUM2 ) = I 
THEN DO; 

L_L = MIN! DIFFER, 9-ARG2) ; 

U L = 9 - ARG2 ; 

C7\LL RANDOM ( 0 , L_L , U L,R„N); 

P 2 -> PROB (I) = ARG2 + R_N ; 

GO TO COLUMN; 

END; 

DO WHILE! ARGI > ARG2 ) ; 

FLAG = ' 0 ».B ; 

IF ARGI -.= 0 C CHO ICE ( NUM1 ) < 4 
THEN DO; 

FLAG =• 1 ' B; 

ARGI = ARGI - l; 

END; 

IF ARG2 -.= 9 & CHOICE ( NUM2 ) < 4 
THEN DO; 

FLAG =• 1* B? 

ARG2 = ARG2 + 1; 

END; 

IF -.FLAG THEN GO TO LE_OUT; 

END; 

LE OUT: PI -> PROB! I) = ARGI; 

P 2 -> PROB ( I ) = ARG2; 

END; 

GO TO COLUMN; 



END? 

/ v ^ v 'r v ^ v ^ ^ t ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 'r ^ ^ t ^ ^ ^ T t t ^ ^ ^ v ^ v -I' / 

/ * 

THE OPERATOR IS GREATER THAN OR EQUAL. 

*/ 



IF OPTR = •>=• 

THEN DO; 

IF ARGI < ARG2 
THEN DO; 

DIFFER = ARG2 - ARGI; 
IF CHOICE(NUMl) = 0 ( 
THEN DO; 



CHOICE! NUM2 ) = 1 
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L_L = KIN( DIFFER, 9-ARG1 ) ; 

U L = 9 - ARGI; 

CALL RAND0M(0,L_L,U_L,R_N) ; 

PI -> PROB(I) = ARGI + R_N; 

GO TO COLUMN; 

END; 

IF CHO ICE ( NUM2 ) = 0 | CHOICE! NUM2 ) = 2 
THEN DO; 

L„L = MIN( DIFFER, ARG2 ) ; 

U„L = ARG2 ; 

CALL RANDOM(0,L_L,U_L,R N > ; 

P2 -> PRO B ( I } = ARG2 - E_N 5 
GO TO COLUMN; 

END; 

DO WHILE(ARG1 < ARG2 ) ; 

FLAG = s O'B; 

IF ARGI -•= 9 £ CHOICE! NUMI) < 4 
THEN DO; 

FLAG = ' I ' B; 

ARGI = ARGI <r 1; 

END; 

IF ARG2 -»= 0 £ CHOICE (NUM2) < 4 
THEN DO; 

FLAG = ' 1 • B; 

ARG2 = ARG2 - 1; 

END; 

IF --FLAG THEN GO TO GE_OUT; 

END; 

GE_OUT : P L -> PROB(I) = ARGI; 

P 2 -> PROB ( I ) = ARG2 ; 

END; 

GO TO COLUMN; 

END; 

/ 5?' sji ❖ jjc # & sfc # * * # if if # 5j : # % * # jjc * * ❖ £ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ ❖ / 

/# 

THE OPERATOR IS DIVISIBLE BY OR MULTIPLE OF. 



*/ 

IF OPTR = •//• I OPTR = ***« 

THEN DO; 

REMAIN = MOD! ARGI , ARG2) ; 

IF REMAIN --= 0 
THEN DO; 

FLAG = *0'B; 

IF ARGI > ARG2 
THEN DO; 

IF CHO ICE (NUMI) =0| CHO ICE (NUMI I =2 
THEN DO; 

PI -> PROB ( I ) = ' ARG1-REMAI N ; 
CHOICE (NUMI) = 4; 

FLAG = ' 1 • B; 

END ; 

IF CHOICE (NUMI) = 1 £ (ARGI + ARG2 

-REMAIN) < 10 

THEN DO; 

PI -> PROB ( I ) = ARGI + 

( ARG2-REMA I N ) 
CHOICE (NUMI) = 4; 

FLAG = * 1 * B ; 

END; 

END; 

IF ARG2 > ARGI 
THEN DO; 

IF CHOICE (NUMI )=0 | CHOICE (NUMI) =1 
THEN DO; 

PI -> PROB ( I ) = ARGI + 

( ARG2-REMAIN); 
CHOICE! NUMI ) = 4; 

FLAG = ' 1 ' B; 



END; 

IF CHO ICE ( NUM 1 ) = 2 
THEN DO; 
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PI -> PROB! I) = ARG1 - REMAIN 
CHOICE! NUMU = 4; 

FLAG = • 1»B; 

END ; 

END; 

IF -FLAG 
THEN DO; 

IF CHOICE (NUMU < 4 
THEN DO; 

PI -> PROB ( I ) = ARGI - REMAIN 
CHOICE! NUM1.) = 4; 

FLAG = *1«B; 

END; 

END; 

IF -FLAG 
THEN DO; 

IF CHOICE!NUM2) < 4 
THEN DO; 

P2 -> PROB! I) = ARGI ; 

CHOICE! NUM2I = 4; 

END ; 

END; 

END; 

GO TO COLUMN; 

END; 

END; 

ELSE DO; 

J Jys ^ ^ ^ Y- j}s »J( V V 5jc y v v 'J' ^ 'J' ^ v ^ 3jt 'if- ^ jJ\ Jyl ?}c 5jt y 3$C JyC ?{c £ 

/ -r 



IF THE CONDITION IS DETERMINED TO BE OF THE FORM 
• UN< 10 s s THEN CONTROL TS PASSED TO THIS POINT- THE SUM OF 
THE PLACE VALUE UNDER CONSIDERATION IS DETERMINED AS IS 
ANY CARRY FROM A PREVIOUS PLACE VALUE. THEN THE OPERATOR 
IS DETERMINED AND CONTROL PASSED TO THE SEGMENT WHICH 
HANDLES THAT OPERATOR. 

*/ 

## # # # ❖ ❖ * £ * £ # ❖ ❖ # ❖ ** * # # * ❖ * ❖ # / 



/ * 



OPTR = • ' ; 

HOLD = SUBSTR (HOLD, 3) ; 

DO WHILE! SUBSTR (HOLD, I » 3. ) < 'AM; 

OPTR = OPTR |1 SUBSTR!HOLD, 1 , 1 } ; 

HOLD = SU BSTR ( HOL D, 2 ) ; 

END; 

COMP = HOLD; 

CARRY = 0; 

IF I > 1 

THEN DO K = 1 TO ARG_PTR->NR ; 

P_PTR = ARG PTRS! INDEX! ALPHA, ARG_PTB->ARG 
CARRY = CARKY + P_PTR->PROB( I ) ; 

END; 

CARRY = CARRY/10; 

TOTAL = 0; 

DO K= 1 TO ARG PTR -> NR; 

P PTR = AR£_PTRS( INDEX! ALPHA, ARG PTR -> 

ARGOEdU ) ) ; 

TOTAL = TOTAL + P PTR -> PROB (I); 

END; 

TOTAL = TOTAL + CARRY; 



v '!'• V if- -r' V v 'r if ^ 5jc sjc V Jj; v >{c ^ V v V V v v ^ ^ ^ v v V ^ ^ ^ ^ v v **■ v V f 



/* 



THE OPERATOR IS LESS THAN. 

❖ / 



IF OPTR = «<* 

THEN DO; 

L REDOl : FLAG = '0 C B; 

DO K= 1 TO ARG PTR->NR WHILE (TOTAL-<COMP ) ; 
NUM= INDCXrALPHA , ARG P TR-> ARGUE ( K) ) ; 
P_PT R = ARG_PTRS(NUM» ; 

DIFFER = TOTAL - COMP + 1; 

IF DIFFER > P PTR-> PROB ( I ) 

THEN L_L = l; 
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-Si- * 






ELSE L_L = DIFFER; 

U_L = P PTR -> PR 0 B ( I ) ; 

IF CHOICE! NUM)=0 | CHOICE! NUM)=2 
THEN IF P_PTR-> PROB ( I ) > 0 
THEN DO; 

CALL RANDOM(OtL_L,U_L t R_N) ; 
P_PTR-> PROB ( I )=P PTR->PROB( I )-R N 
TOTAL = TOTAL - F_N ; 

IF P_PTR -> PROB ( I ) = 0 
THEN CHOICE! NUM) = 3; 

FLAG = ' I ' B ; 

END; 

END; 

I F ( TOTAL-»<COM P ) SF L AG THEN GO TO L RE DO I ; 
L_RED02 : I F ( TOT AL-<CGMP ) £-«FL AG 
THEN DO; 

DO K= I TO ARG_PTR->NR WHILE 

{TOTAL -><COMP ) ; 

NUM= INDEX! ALPHA, ARG_PTR-> ARGUE (K! 
P_PTR = ARG P TR S { NUM ) ; 

IF CHOICE! NUM! ^ 3 
THEN IF P_PTR->PROB ( I ) > 0 
THEN DO; 

P_PT R— >PROB ( I ) =P PTR -> 
PROB! I) - l; 
TOTAL = TOTAL- 1 ; 

FLAG = • I ‘ B ; 

END; 

end; 

IF FLAG 
THEN DO; 

FLAG = ' 0 ' B ; 

GO TO L_RED02; 

END; 

END; 

L_RED03:IF (TOTAL-><COMP ) £ -FLAG 
THEN DO; 

DO K = 1 TO ARG PTR->NR WH I L E ( TOT AL— < 
NUM = INDEXlALPHA, ARG_PTR-> 

ARGUE (K) ) ; 

P„PTR = ARG_PTR5 (NUM) ; 

IF CHOICE! NUM) < 4 
THEN IF P_i PTR ->PROB( I ) >0 
THEN DO; 

P_PT R-> PRO B ( I ) = P PTR-> 
PROBTI )-t ; 
TOTAL = TOTAL-1; 

FLAG = 1 1 « B ; 

END; 

END; 

IF TOTAL -< COMP £ FLAG 
THEN DO; 

FLAG = * O' B; 

GO TO L_RED03; 

END; 

end; 

GO TO COLUMN; 

END; 









THE OPERATOR IS GREATER THAN. 



*/ 






IF OPTR = «>* 

THEN DO; 

G_REDO 1 : FLAG = '0 # B; 

DO K= 1 TO ARG_PTR->NR WHI LE ( TCTA L->C OMP ) 
NUM=INDEX( ALPHA, ARG PT R->ARGUE ( K ) > ; 
P_PTR = ARG PTRS(NUFt); 

DIFFER = COHP - TOTAL + L; 

IF DIFFER < 9- P_PT R -> PROBU) 

THEN U_L = 9- P_PTR -> PROB(I); 



/ 
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ELSE U_L = DIFFER; 

L L = DIFFER; 

IF CHOICE! NUM)=0 I CHOI CE ( NUH I = 1 
THEN IF P_PTR-> PROB ( I ) < 9 
THEN DO; 

CALL RANDOM !0,L L f U_L,R_N); 

P__PTR— >PROB( I ) =P_PTR- >PROB ( I M-R N 
TOTAL = TOTAL + R N; 

IF P_PTR -> PROB(T) = 9 
THEN CHOICE (NUMi = 3; 

FLAG = ‘ 1 • B; 

END; 

END; 

IF TOTAL -> COMP G FLAG 
THEN GO TO G REDOl; 

G_RED02 : I F TOTAL -»> CGMP G -FLAG 
THEN DO; 

DO K= 1 TO ARG_PTR->NR WHILE 

( I OT AL— >COMP I ; 
NUM = INDEX( ALPHA t ARG_PTR-> 

ARGUE (K) ) ; 

P_PTR = ARG„ PTRS < NUMI ; 

IF CHOICE (NUM) = 3 
THEN IF P PTR->PROB(I) < 9 
THEN DO; 

P_PT R—> PROB ( I I ~P PTR -> 
PROB ( I I +1; 
TOTAL = TOTAL + 1; 

FLAG = * 1 ' B ; 

END; 

END; 

IF FLAG 
THEN DO; 

FLAG = *0 • B; 

GO TO G_RED02; 

END; 

END; 

G_RED03 : I F { TOTAL->COMP ) G -FLAG 
THEN DO; 

DO K=1 TO ARG PTR->NR WHILE (TOT AL-> C 
NUM = I NDEX! ALPHA* ARG_PTR-> 

ARGUE (K ) I ; 

P_PTR = ARG_PTRS(NUM) ; 

IF CHOICE (NUM I < 4 
THEN IF P_P TR-> PROB! I) < 9 
THEN DO; 

P_PT R->PROB ( I I - P PTR— > 
PROBTl Ml; 
TOTAL = TOTAL+I; 

FLAG = ( 1 { B ; 

END; 

END; 

IF ( T OT AL— >COM P ) G FLAG 
THEN DO; 

FLAG = ' 0* B; 

GO TO G_RED03; 

END; 

END; 

GO TO COLUMN; 

END; 



^ ^ OU ^ ♦. U ’/r "J ' V' S V ^ ^ ^ 

^ 4T|V *^|-v #|\ **,V *T* V 't 1 * Y" 'V' -"r ^ ^|*** 



***#***#**£*£*********#:{:*/ 



/ 



THE OPERATOR IS LESS THAN OR EQUAL. 

5J; ^ ^ ^ ^ ?|s Jit# £ stssJcsJ^sSciIc: 



*/ 

/ 



IF OPTR = •<=« 

THEN DO; 

LE REDOl : FLAG = 5 0 C B; 

DO K = 1 TO ARG PT R— >NR WHI LE ( TOTAL>COMP I 
NUM = I NDEXlAL PHA f ARG_PTR-> ARGUE ( K. ) ) ; 
P_PTR = ARG_PTRS( NUM) ; 

DIFFER = TOTAL - COMP; 
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IF DIFFER > P P TR->PROB ( I } 

THEN l_L = l;~ 

ELSE L L = DIFFER; 

U_L - F PTR -> PR OB ( I ) ; 

IF CHOlUEI NUM )=0 | CHOICE! NUM)=2 
THEN IF P_PT R-> PROB ( I ) > 0 
THEN DO; 

CALL RANDOM ( 0, L„L , U L,R N); 
P_PTR->PROB ( I I =P_PT R-> PROB ( I )-R N 
TOTAL = TOTAL - R N; 

IF P_PTR-> PRO B ( I T = 0 
THEN CHOICE (NUM ) = 3; 

FLAG = » 1«B; 

END; 

END; 

IF ( TOTAL >COMP ) £F L AG THEN GO TO LE REDOI ; 
LE_RED02 : I F (TOTAL>CGMP ) £->FLAG 
THEN DO; 

DO K= I TO ARG_PTR->NR WHILE 

(TOTAL > COMP); 

NUM=I NDEX ( ALPHA, ARG PTR->ARGUE ( K) 
P. PTR = ARG PTRS(NUM) ; 

IF CHOICE ( NUM) = 3 
THEN IF P PTR— >PROB ( I ) > 0 
THEN' DO; 

P_PTR— >PROB ( I )=P PTR -> 
PROB(T) - l; 
FLAG = • I s B; 

TOTAL = TOTAL -I; 

end; 

END; 

IF FLAG 
THEN DO; 

FLAG = ’ 0 ‘ B ; 

GO TO L_RED02; 

END ; 

END; 

LE_RED03 : I F ( TOT AL>COMP ) £ ->F LAG 
THEN DO; 

DO K = 1 TO ARG_PTR->NR WHILE! TOTAL>C 
NUM = I NDEX (ALPHA, ARG_PTR-> 

ARGUE (K) ) ; 

P PTR = AR.G_PTRS ( NUM ) ; 

IF CHOI CE ( NUM ) < 4 
THEN IF P PTR -> PROB(I) >0 
THEN DO; 

P_PT R-> PROB ( I ) -• P PTR— > 

probT I )- l ; 

TOTAL = TOTAL-1 ; 

FLAG = • 1' B; 

END; 

END; 

IF (TOTAL>COMP ) £ FLAG 
THEN DO; 

FLAG = *0 • B; 

GO TO LE RE DO 3 ; 

END; 

END; 

GO TO COLUMN; 

END; 

^ ^ t ^ v' >14 ^ t ^ t ^ ^ r r ^ ^ ^ ^ v ^ ^ 



THE OPERATOR IS GREATER THAN OR EQUAL* 

ly Si* ^ «,V vU -Jls -V* <JU V 

r“T> t •t v ' 



*/ 

*/ 



IF OPTR = •>=• 

THEN DO; 

GE REDOI : FL AG = 'O'B; 

DO K= 1 TO ARG_PTR->NR WHI LE ( TOTA L<COMP ) ; 
NUM = INDEX! ALPHA, ARG_PT R->ARGUE (K) ) ; 
P_PTR = ARG_PTRS( NUM) ; 

DIFFER = COMP - TOTAL; 
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IF DIFFER < 9— P PTR-> PROB(I) 

THEN U_L = 9 - V PTR --> PROB(l); 

ELSE U L = DIFFER; 

l_l = Differ; 

IF CHOICE ( NUM )=0 ! CHO I C E ( NUM I = I 
THEN IF P_ PTR -> PROB(I) < 9 
THEM DO; 

CALL RANDOM ( 0 » L_L ? U L,R N); 
P_PT R-> PRO B ( I ) = P_PTR->PROB( I ) 

+R N; 

IF P_PTR -> P R 0 B ( I ) = 9 
THEN CHOI CE ( NUM ) =3 ; 

FLAG = ' 1 ' B; 

TOTAL = TOTAL + R N; 

END; 

END; 

IF TOTAL < COMP £ FLAG 
THEN GO TO GE„RED01 ; 

GE„RED02 : I F TOTAL < COMP & -.FLAG 
THEN DO; 

DO K= 1 TO ARG_PTR->NR 

WHILE (TOTALCCOMP) ; 

NUM = INDEX! ALPHA , ARG_PTR-> 

ARGUE ( K ) > ; 

P_P TR = ARG_PTRS( NUM) ; 

IF CHO ICE (NUM I = 3 

THEN IF P_PTR--> PROB(l) < 9 

THEN DO; 

P_PT R->PROB { I ) =P PTR -> 

PROB ( IJ+l; 
TOTAL = TOTAL + 1; 

FLAG = • 1*B; 

END; 

END; 

IF FLAG 
THEN DO; 

FLAG =*0'B; 

GO TO G_RED02; 

END; 

END; 

GE_RED03 : I F (TOTALCCOMP) 6 -.FLAG 
THEN DO; 

DO K = 1 TO ARG_PTR-> NR WHILE 

( TOTALCCOMP I ; 

NUM = INDEX (ALPHA, ARG_PTRS -> 

ARGUE ( Kl ) ; 

P_PTR = ARG PTRS( NUM) ; 

IF CHOICE (NON) < 4 
THEN IF P_PTR ->.PR0B(I) < 0 
THEN DO; 

P_PTR -> PROB ( I ) = P_ 
-> PROB( I ) + 1 ; 
TOTAL = TOTAL + 1; 

FLAG = ' I ' B; 

END; 

END; 

IF TOTAL < COMP & FLAG 
THEN DO; 

FLAG = ' 0 ' B ; 

GO TO GE_RED03; 

END ; 

END; 

GO TO COLUMN; 

END; 

/ sly* X Of Or %!U Ov hU ^ Of Of Of Of Of Of -X- O- O^ O/ Of Of Of Of Of Of ^ O^ O, O^ O^ O^ O' ^ OU O' O' O' O/ vt- O' Of Of / 

/ 'yv ^ ^ -y* y 'f* 'f. y ^T" nr* nr* *n** y n* Y *v* y Y y r* or '■r nr* nr* *ir n 4 * v *t* * p nr* nr* n' nr* nr* * r* Y nr* n* n* nr* nr* n* y <r r* n x n % nr* n** 'r nr* / 

/^C 

THE OPERATOR IS EQUAL. 

IF OP TR = •=• 

THEN DO; 

IF TOTAL > COMP 
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THEN DO; 

REDO I : FLAG = » O' B ; 

DO K=1 TO ARG PTR->NR WHILE (TOTAL-«=CO 
NUM=I NDEXTALPHA ? ARG PTR-> ARGUE ( KJ 
P PTR = ARG PTRS ( NUffi ) ; 

DIFFER = TOTAL - COMP; 

IF DI FFER>P_PTR -> PR08(IJ 
THEN L_L = l; 

ELSE L„L = DIFFER; 

U_L = DIFFER; 

IF CHO I CE ( NUM 1=0 | CHOI CE ( NUM ) -2 
THEN IF P_PTR->PROB ( I ) > 0 
THEN DO; 

CALL RANDOM { 0 r L L , U_ L ♦ R_N ) ; 
P_PTR ~> PR08 ( IT = P PTR— > 

PROB(I)-R n; 
TOTAL = TOTAL - R_N ; 

IF P_PTR -> PRO B ( I ) = 0 



FLAG 



E.„R EDO 2 



THEN CHOICE (NUM) 
FLAG = 'I • B 

END; 

END; 

IF TOTAL -.= COMP G 
THEN GO TO E REDOl; 

if total Comp & -*flag 

THEN DO; 

K=1 TO ARG PTR 
WHILE (TOTlL 
NUM = 



= 4 : 



DO 



-> NR 
= COMP) ; 

INDEXt ALPHA, ARG PTR 
-> ARGUE (K) ) ; 
P_PTR = ARG_PTRS (NUM) ; 

IF CHOICE (NUM) = 3 
THEN IF P_PTR->PROB( I )> 0 
THEN DO; 

P_PTR— >PROB( I ) = 
P PTR— >PROB(I I— l 



TOTAL 

FLAG 



TOTAL -I 
• l'B; 



= '0*b; 

E_RED02 



-COMP) & -.FLAG 



END; 

END; 

IF FLAG 
THEN DO; 

FLAG = 

GO TO 

END; 

END; 

E RED03 ’• IF (TOTAL-i-- 
THEN DO; 

DO K = 1 TO ARG_PTR->NR 

WHILE! TOTAL-.=COMP ) ; 

NUM = I NDEX ( ALPHAt ARG PTR-> 

AROUE(K) ) ; 

P PTR = ARG_PTRS ( NUM ) ; 

IF CHO ICE (NUM) < 4 
THEN IF P_PTR -> PROB(I) >0 
THEN DO; 

P PTR->PROB ( I ) = 

P PTR->PROB( I ) -1 ; 
TOTAU = TOTAL- I ; 

FLAG = 'l'B; 

END; 

END; 

IF( TOTAL -.= COMP) 6 FLAG 
THEN DO; 

FLAG = 

GO TO 

END; 

END; 

END; 

IF TOTAL < COMP 
THEN DO; 

E RED04: FLAG = * O' B; 



*0 s B ; 
_RED03 ; 
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end; 



DO K= 1 TO ARG PTR->NR 

WHILETTOTAL < COMP); 

NUM= I NDEX ( ALPHA, ARG_PT R->ARGUE ( K ) 
P PTR = ARG PTRS(NUM); 

DIFFER = CO HP - TOTAL; 

IF 9- P_PT R->PROB ( I ) > DIFFER 
THEN U_L = DIFFER: 

ELSE U„L = 9 - P_PTR-> PROB(I); 
L_L = 1? 

IF CHOICE (NUM)=0 | CHOI CE ( NUM I =1 
THEN IF P_PTR->PROB(I) < 9 
THEN DO; 

CALL RANDOM (0,L_L, U_L»R_N» ; 

P PTR -> PROB ( I ) = P_PTR -> 

PROBUH-R N; 
TOTAL = TOTAL + R_N ; 

IF P„PTR -> PROB ( I) = 9 
THEN CHOI CE ( NUM ) = 3; 

FLAG = ' 1 ' B ; 

END ; 



END; 

IF TOT AL<COMP G FLAG 
THEN GO TO E_RED04; 

E _RED05 : IF TOTAL < COMP G -‘FLAG 
THEN DO; 

DO K = ). TO ARG_PTR -> NR 

WHILE (TOTAL < COMP); 

NUM = II\'DEX( ALPHA t ARG_PTR 
-> ARGUE (K)); 
P PTR = ARG_P1'RS (NUMi ; 

IF CHOI C E ( NUM ) = 3 
THEN IF P_PTR->PROB( I X 9 
THEN DO; 

P_PTR~>PROB ( I ) = 
P_PT R->PROB ( I ) + l 
TOTAL =■ TCiTAL + l; 
FLAG = * I s B; 

END; 

END; 

IF FLAG 
THEN DO; 

FLAG = ' 0 * B ; 

GO TO E_RED02; 

END ; 

END; 

E_RED06 : I F { TOT AL-=COMP ) G -FLAG 
THEN DO; 

DO K = L TO ARG_PTR-> NR 

WHILE (TOTAL' -= COMP) ; 

NUM = I NDEX ( ALPHA, ARG _PTR-> 

ARGUE ( K ) ) ; 

P _PTR = ARG„PTRS (NUM) ; 

IF CHOICE (NUM) < 4 
THEN IF P _ P T R -> PROB(I) <9 
THEN DO; 

P_PT R->PROB ( I ) = 

P PTR->PROB( n + i ; 
TOT'SL = TOTAL + I; 

FLAG = • 1* B; 

END; 

END; 

IF TOTAL ->= COMP G FLAG 
THEN DO; 

FLAG = «0 • B; 

GO TO E_REDC6; 

END; 

end; 

END; 

GO TO COLUMN; 



end; 
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/ ^ 

NO CODING HAS YET BEEN WRITTEN TO HANDLE CONDITIONS 
OF THE FORM • UN//8' OR 'UN**8* SINCE IT COULD NOT BE SEEN 
WHERE THESE WOULD HAVE ANY USE IN DESCRIBING A PROBLEM. 
THE CODE SHOULD BE INCLUDED FOR COMPLETENESS PRIOR TO THE 
FINAL TESTING OT THE SYSTEM. 

*/ 

/ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 5|c ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ;V ^ y,c ^ ^ X' ^ ^ ^ ^ 5,Y ^ 

OUT 1 : END; 

/ # 5}c # %. ijc jfc # 5{e # # # ^ %:%. 2j< # # # # 5^## # # ## ^C 3$C # s£ >!< # ^C # 3fc # # 5&C 2'C 5^ # ?Jc # I 

f + c 

WHEN ALL ARGUMENTS HAVE BEEN COMPLETELY GENERATED AND 
ALL CONDITIONS OF GROUP I AND GROUP 2 HANDLED, CONTROL 
PASSES OUT OF THE DO LOOP BEGINNING AT N1 AND A CHECK IS 
MADE FOR ANY CONDITIONS BELONGING TO GROUP 3. IF ANY ARE 
ENCOUNTERED, THE TWO ARGUMENTS IN QUESTION ARE DETERMINED 
AND THEN CONTROL IS PASSED TO THE SEGMENT OF CODING WHICH 
HANDLES THE OPERATOR RELATING THEN. 

*/ 

/ I$C # 5{c # # 5r ❖ # ❖ 3$C ^ 5^5^ ❖ # 3{c 3$C 3{c 3$C # 5jt^C # 5}t 3>jc # ?}c ## >Jc # jjcsje £ ifc #5jc >J< # # # 5jc 3^5}c 3jc ?jc # # >}c / 

ANYMORE: 

I F WORK_S = • * 

THEN GO TO OUT3; 

COMMA = INDEX! WORK_S v ’ , ' I ; 

IF COMMA = 0 
THEN DO; 

SEMI = INDEX (WORK S,';'); 

HOLD = SUBSTR(WORK_S,l» SEMI-1) ; 

WORK_S = * * ; 

END; 

ELSE DO; 

HOLD = SUBSTR ( WORK S , L , COMMA- 1 ) ; 

WOKK_S = SUBSTR ( WOT<K_S , COMMA+1 ) ; 

END; 

CARG1 = SUBSTR ( HOLD,! ,1) ; 

HOLD = SU BSTR ( HOLD , 2 ) ; 

OPT R = * • ; 

DO WHI LE( SUBSTR (HOLD, 1 ,1 I < * A * » ; 

OPTR = OP TR || SUBSTR ( HOLD , 1. , l ) 5 
HOLD = SUBSTR ( HOL D , 2 ) ; 

END ; 

CARG2 = $UBSTR( HOLD ,1,1); 

NUM1 = INDEX! ALPHA, CARG1) ; 

NUM2 = I NDEX ( ALPHA , CARG2 ) ; 

P_PTR = ARG_PTRS(NUM2I ; 

ARG2 = 0; 

DO MM = I TO P_PTR -> D I GETS; 

ARG2 = ARG2 + P_PTR -> PROB ( MM ) *( 10**.( MM- 1 ) ) ; 

END; 

P_PTR = ARG_PTRS(NUM1) ; 

ARG1 = 0; 

DO MM = 1 TO P PTR -> DIGETS; 

ARG1 = ARG1 + P_PTR -> PROB (MM)* ( 10** ( MM-1 ) ) ; 

END; 

/ ^ 

THE OPERATOR IS LESS THAN. 

*/ 

Z#*^**# I*** *#:£>}: **❖❖❖****!!'***❖***** **********/ 

IF OPTR = ‘< e 
THEN DO; 

IF ARG1 t< ARG2 
THEN DO; 

DIFFER = ARG1 - ARG2 + 1; 

IF ARGL > DIFFER 
THEN DO; 

U L = ARG 1 ; 

L“L = DIFFER? 

C7\LL RANDOM ( 0 , L_L , U_L , R_N ) ; 

ARG1 = ARG1 - R_N; FLAS = ' l'B ,* 

GO TO replace; 
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end; 

ELSE DO; 

P_PTR = ARG_PTRS( NUM2 ) ; 

U_L = 10 ** P_PTR->DI GETS - ( ARG2 + I); 

L_L = DIFFER; 

ClLL RANDOM (0,L L » U_L , R_N ) ; 

ARG2= ARG2 + R R; FLAG = 'O'B; 

GO TO REPLACE; 

END; 

GO TO ANYMORE; 

END; 

END; 

/ # 2^ # # # # # # jjt ## # # # :£ 3{c sjc # # # # f 

/❖ 

THE OPERATOR IS GREATER THAN. 

*/ 

IF OPTR = «>• 

THEN DO; 

IF ARGI -.> ARG2 
THEN DO; 

DIFFER = ARG2 - ARGI + 1; 

IF 10 ** P_PT R->D I G ET S - (ARGI + 1) > DIFFER 
THEN DO; 

U_L = 10 ** P_PTR->D I GETS -(ARGI + 1); 

L L = DIFFER; 

CftLL RANDOM ( 0 » L_L t U_L j R_N ) ; 

ARGI = ARGI + R_N; FLAG - *1‘B; 

GO TO REPLACE; 

END; 

ELSE DO; 

P_PTR = ARG_PTRS( NUM2) ; 

U__L = ARG2; 

L L = DIFFER; 

CTvLL RANDOM (0»L_L,U_.LtR_N I ; 

ARG2 = ARG2 - R_N ; FLAG = 'O'B; 

GO TO REPLACE; 

END; 

END; 

GO TO ANYMORE; 

END; 

/ * * * ** *3$C ** # * 3{C5^ ^ 3fC # # sjt ## # $$3^9$: # SjS# # # * SjC# # 3*C # #/ 

/ * 

THE OPERATOR IS LESS THAN OR EQUAL • 

*/ 

IF OP TR = '<=' 

THEN DO; 

IF' ARGI > ARG2 
THEN DO; 

DIFFER = ARGI - ARG2 ; 

IF ARGI > DIFFER 
THEN DO; 

U_L = ARGI; 

L L = DIFFER; 

C7(LL RANDOM! 0, L_L , U_L, R_N ) ; 

ARGI = ARGI - R_N; FLAG - *1*B; 

GO TO REPLACE; 

END; 

ELSE DO; 

P PTR = ARG PTRS ( NUM2 ) ; 

UlL = 10** P_ P T R— > D I G E T S -(ARG1 + U; 

L L = DIFFER; 

C/^LL RANDOM ( 0 i L_L t U_L » R_N ) ; 

ARG2 = ARG2 + R_N ; FLAG = 'O'B; 

GO TO REPLACE; 

END; 

END ; 

GO TO ANYMORE; 

END; 
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\ 




/* 

THE OPERATOR IS GREATER THAN OR EQUAL. 

*/ 

#£#3. + ##=!<=f:##£:f:£3!=#5!= ##*:<< :{;:!•.* / 

IF OPTR = •>=• 

THEN DO; 

IF ARGI < ARG2 
THEN DO; 

DIFFER = ARG2 - ARGI; 

IF LO ** P_PTR->DIGETS - (ARGI +11 > DIFFER 
THEN DO; 

U_L = 10 ** P_PTR— >DI GETS -(ARGI + 1); 

L L = DIFFER; 

C7ILL RANDOM (0,L_LtU. L, R_N) ; 

ARGI = ARGI + R_N; FLAG = ‘l'B; 

GO TO REPLACE; 

END; 

ELSE DO; 

P_PTR - ARG_PTRS( NUI12 ) ; 

U_L = ARG2 ; 

L L = DIFFER; 

CALL RANDOM ( 0 ,L_L»U„L,R_N) ; 

ARG2 = ARG2 - R_N ; FLAG = ‘O'BJ 
GO TO REPLACE; 

END; 

END; 

GO TO ANYMORE; 

END ; 

f # ijc '$£ 5^ # # # # ^ sj« # 3{< # # # # ## 'if. if if if if if if 3{< if if i< if # if 3jC Sj« # if # jjc # # ^ # if & ❖ / 

/ ^ 

THE OPERATOR IS DIVISIBLE BY OR MULTIPLE OF. 

❖ / 

IF OPTR = •//• I OPTR = •**« 

THEN DO; 

REMAIN = MOD( ARGI T ARG2) ; 

IF REMAIN i= 0 
THEN DO; 

IF REMAIN < ARG2-REMA I N 
THEN IF ARGI - REMAIN > 0 

THEN ARGI = ARGI - REMAIN; 

ELSE ARGI = ARGI + ( ARG2 - REMAIN); 

ELSE IF ARGI + ( ARG2 - RE MA INK 10 ** P_PTR->DIGE 
THEN ARGI = ARGI + ( ARG2 - REMAIN); 

ELSE ARGI = ARGI - REMAIN; 

FLAG =« l'B; 

GO TO REPLACE; 

END; 

GO TO ANYMORE; 

END; 

/if if if if =r if ^ £ if if if if if if if ic^c :£ if if if :{c # 5jc if # sjcsfc^; if 3{t if if if if if if if if ifif/ 

/ ^ 

THE OPERATOR IS EQUAL. 

*/ 

IF OPTR = •=* 

THEN DO; 

IF ARGI -»= ARG2 
THEN DO; 

ARGI = ARG25 

FLAG = ‘l'B; GO TO REPLACE; 

END; 

GO TO anymore; 

end; 

/ ^ 

AFTER CHANGE HAS BEEN MADE IN NUMBER TO SATISFY THE 
CONDITION, THE CHANGES ARE MADE IN THE STORAGE LOCATIONS 
OF THE NUMBER, STARTING AT REPLACE. 

*/ 

/ate#######*# ##:{; ❖ ❖❖ ❖❖ =t ❖ a?#*#*##/ 
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REPLACE: MN = 10; 

DO MM= 1 TO P_PTR -> DIGETS 
IF FLAG 
THEN DO; 

P. PTR -> PRCB (MM) = 
ARG 1 = ARGl/MN; 

END; 

ELSE DO; 

P PTR -> PR OB ( MM ) = 
ARG2 = ARG2/MN ; 

END; 

END; 

GO TO ANYMORE; 

/ $#$$$&$$# 

/ -J* 



MOD( ARG1 ,MN) ; 
MOD( ARG2 , MN ) ; 






WHENEVER WORK_S BECOMES NULL* CONTROL IS PASSED TO 
•FILL* WHICH GENERATES NUMBERS TO FILL UP THE REMAINING 
DIGITS NOT YET GENERATED. 



❖/ 

/❖ ^>r Y =r ### ❖❖❖ 

FILL: U_L = 9; 

L L = o; 

DO K = LAST TO G_D I G ; 

DO L = 1 TO ARG PTR -> NR; 

ARG = ARG_PTR -> ARGUE (U; 

NUM = INDEX (ALPHA, ARG) ; 

P_PT R = ARG_PTRS ( NUM) ; 

IF P_PTR -> DIGETS < K 
THEN GO TO 0UT2; 

ELSE DO; 

P_PTR -> PROB(K) = R_N; 

END; 

0UT2: END; 

END; 

END PRO_GEN; 
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PROBSOL: PROC ( PROB_S ) i 



/* 

/* 



:£ y,' X* £ £ -n i!: £ £ / 

THE ROUTINE PROBSOL IS USED TO CALCULATE AN ANSWER TO 
TO THE PROBLEM PRODUCED BY PRO GEN. IT OPERATES ON THE 
POLISH EQUIVALENT OF THE PROBLEM FORMAT T PASSE D AS A 
PARAMETER. TWO OTHER ROUTINES F_SCAN AND R_SCAN ARE CALL- 
ED TO ASSIST PROBSOL. IT ALLOCATES STORAGE FOR TEMPORARY 
ANSWERS GENERATED IN SOLVING THE PROBLEM AND PLACES THESE 
TEMPORARY ANSWERS IN THE STORAGE LOCATIONS ALLOCATED. THE 
MAIN VARIABLES USED IN PROBSOL ARE: 

PROB S - POLISH EXPRESSION OF THE PROBLEM. 

POSIT S PLACE - KEEP TRACK OF LOCATION IN PROB S. 

ARGl t ARG2 - THE TWO ARGUE MENT S TO BE OPERATED ON. 

DIGI.DIG2 - THE SIZE OF ARGI AND ARG2 RESPECTIVELY. 

PTR 1 » PTR2 - POINT TO STORAGE LOCATION OF ARGI AND 

ARG2 RESPECTIVELY. 

ANS_PTR - POINTER TO STORAGE LOCATION OF ANSWER. 

CAR _P TR - POINTER TO STORAGF LOCATION OF ANY CARRIES 

GENERATED IN OBTAINING THE ANSWER. 

OPER - THE OPERATION TO BE PERFORMED ON ARGI £ ARG2 . 



*/ 

/# # 3 $: ## 5 jC 3 fc ?£ £ Sjojr # 3 {S?jC ## # Sjojc # # 2 $C 3 jc# # % ^ # # ## # # # # # # # £ ## / 



DCL (ANS PTR, CAR PTR) PTR ; 

DCL(T_PTR t TARG_PTR) PTR; 

DCL PROB_ P PTR; 

DCL( POS IT, PLACE) FIXED BIN(I5); 

DCL PROB_S CHAR (240) VARYING; 

DCL F SCAN EN TRY( CHAR (240) VARYING) RETURNS ( CHAR ( 1 )) ; 

DCL OFER CHAR(I); 

DCL TEMP C CHAR (9) VARYING; 

DCL (TYP£,ARG_C) CHAR ( 1 ) ; 

DCL NR ARG FIXED B I N ( 15) ; 

DCL(Dl5 I, DIG 21 FIXED BIN(15); 

DCL (ARGI, ARG2T CHAR (3) VARYING; 

DCL (PTR I i P1R_2 ) PTR; 

DCL ( COUtlT ) FIXED BIN(15); 

DCL FLAG BIT( I) ; 

ALLOCATE TEMP NODE; 

TEMP PTR = TNT 5 ; 

T_PTK = T EMP_PTR ; 

T PTR— >T_A_P = NULL; 

PT5SIT = 0; T_PTR = T EMP_PTR; FLAG = »0'B; 

TEMP = l; OPER = 

/ # 5$C * # # # £ £ # # 3$C 5}: # # # # # # # * # # # ^ ^ * j)C # J$C # If. ^ ^ ^ ^ # 3{t :$OjS 5J: 5jc J$C # 3fC # # 3jc / 



F_SCAN IS CALLED TO LOCATE OPERATOR. 



*/ 

^ ^ ^ ^ ^ ^ / 



DU: OPER = F_SC AN ( PRO B_S ) ; 



/* 



WHEN THE •;« IS DETECTED IT INDICATES THAT THE END OF 
PROB_S HAS BEEN REACHED 






•%Xf JL, JU JU ^ ^ nV \V «X- ^ 

,y. /y, /js T 1 -r -r x v xt -r -r ^ ^ 




IF OPER = »;« THEN GO TO FINIS; 

/ ^ 

WHEN THE •=• SIGN IS ENCOUNTERED IT MEANS, WITH THE 
PRESENT LIMITATION ON FORMAT, THAT THE SOLUTION HAS BEEN 
FOUND. THE COMPUTER'S ANSWER IS THEN STORED. SINCE OTHER 
FORMATS ARE INTENDED THE SCAN OF PR06_S IS NOT TERMINATED 

*/ 

/ ^c^t5jc^r^:*5j<^s5ic 3$: ## s(c 5(s 5}: ## / 
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IF OPER = •=' 

THEN DO; 

ANSWER = • ' ; 

DO I = 1 TO ANS PTR-> DIGETS; 

TEMP C= ANS PTR->PROB ( I ) ; 

ARG Z = SUB5TR<TEMP_C ,9,1 I *, 

ANSWER = ARG_C \ | ANSWER; 

M_ANS_C ( I ) = ARG C; 

END; 

GO TO DU; 

END; 

/ J, 'V ^ 'V ■nV -*V ^ -V V' «A- ^ V/ ■*>» -X* x *X- »<* *V *}+ >*•» >*' >1/ »i- «.V >.V >'«' 'V 

v nr 'Avt t 'Ft 't'V'r-'F v v'r'F 

/ ^ 

TEMPORARY STORAGE IS ALLOCATED TO HOLD 
ANSWER JUST CALCULATED FOR THE PERVIOUS OPERATOR 



IF FLAG 
THEN DO 



:5{£3jo{c^i 



"JU ^ >V vt «Jlr i 

v ^ -V s v 'rv ^ 

THE 

*/ 
V 



END 

TEMP^C 
DO 



ALLOCATE TEMP_NODE; 

T PTR->T_P=TNP ; 

SIZE = ANS PT R->D I GET S ; 
ALLOCATE PROBLEM; 

T_PTR = T_PTR->T_P; 

T_PTR -> T_A_P = PP; 

TEMP = TEMP -8-1 ; 

PROB P = T PTR -> T A P; 
PROB“P->PROB = ANS_PTK->PROB; 



= TEMP; 

WHILE(SUBSTR(TEMP_C, 1, 1!= » '); 

TEMP C = SUBS TR ( T EM P_C , 2 ) ; 

END; 

/******* # :{< # :$c ^ j{< # 3jc if sjc ;J: ^ 5fc >\< :$c jjc # 5joJc # s}c 5^ >Jc 5$< 5^ ^ ^ s{c ;{c ^ jfc njc :$c f 

/# 

R_SC AN IS CALLED TO DETERMINE THE ARGUMENTS TO BE 
USED BY THE OPERATOR. IF THE FIRST CHARACTER IS A •#' 

THEN THE ARGUMENT IS A NUMBER CREATED BY PRO_GEN AND THE 
REST OF THE ARGUMENT INDICATES WHERE THE POINTER TO ITS 
LOCATION IS LOCATED IN THE ARRAY ARG PTRS. IF THE FIRST 
CHARACTER IS AN f 3' THEN THE ARGUMENT IS A PREVIOUSLY 
DETERMINED PARTIAL ANSWER AND THE REST OF THE ARGUMENT 
TELLS WHICH PARTIAL ANSWER. 

*/ 

/ jfc ^ ^ ^ 5jc ^ ^ sfc ifi 3{c if sfc # 5}c 3$: 5*c # :£ sjc y,c # 5jc jJc # 2jc %: sjc ijc j{c •$: jJ; aj< / 

CALL R_SC AN ( ARG1 » ARG2 ) ; 

TYPE = SUBSTRI ARG1 ,1,1); 

ARG_C = SUBSTRI ARG1 ,2 ) ; 

COUNT = o; 

GO TO TYPEQ; 

AGAIN: PI R_1 = T ARG _PT R ; 

TYPE = SUBSTR ( ARG 2 ,1,1) ; 

ARG C =SUBSTR(ARG2,2i ; 

TYPEQrUOUNT = COUNT + l ; 

IF TYPE = '3* 

THEN DO; 

TARG PTR = TEMP_PTR; 

NR ARG = ARG_C; 

DO I = 1 TO NR ARG; 

T ARG_PTR = IARG_PTR->T_P ; 

END; 

T ARG_PTR = TARG_PTR->T_A_P ; 

END; 

IF TYPE = » # c 
THEN DO*, 

NR ARG = ARG C; 

TARG_PTR = A&G_PTRS(NR_ARG) ; 

END ; 

IF COUNT = 1 THEN GO TO AGAIN; 

PT R_2 = T ARG_PTR ; 
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/ «JL- Oy UL. -A. JU V(- JU «U »V J/ ^ «JU *'* *Sf Vr "A" Vf V' Vf >*» V/ V/ Vr "JL* J» «A» Jf <A« V- *X* J ■» Vj> ».V U/ vV Ju / 

T vt ii' v v A' v ^ v^'r •r t ^ t v vt T x ^r-v v ^ V'r v v *rv v T ^'■V' •v '*'> 'r> v '.* ■'»'• 'r- -'!'• v ^ •v / 

/ ^ 

ONCE THE TWO ARGUMENTS HAVE BFEN OBTAINFD AND PTR1 
AND PTR2 SET TO POINT TO THEIR STORAGE LOCATIONS THEN THE 
ROUTINE TO HANDLE THE OPERATOR iS CALLED 

*/ 





■ -¥• v 'r T- *v •T* 'r ~f *y» *f -nr v* *>' 


* £ # * # ^ 5 ;< * # 5 jc ^ ^ ^ 5 jc 5 ft * * * £ # >; C 3 ^ ^ / 


IF 


OPER 


= * + * 


THEN 


CALL 


ADD ITIPTR 1 , PTR 2,ANS PTR, 
CAR PTR, FLAG); 


IF 


OPER 


= « _ t 


THEN 


CALL 


SUB I T I P T R*~ 1 , P T R 2,ANS PTR, 
CAR PTR, FLAG) ; 


IF 


OPER 


-«y;I 


THEN 


CALL 


MUL ITIPTR"!, PTR 2,ANS PTR, 
CAR PTR, FLAG); 


IF 


OPER 


= «/• 


THEN 


CALL 


DIV ITIPTR 1 , PTR 2 , AN S PTR, 
CAR PTR , FLAG) ; 


IF 


-FLAG 


THEN 


FLAG 


= • 1 « 


i 

• *> 

GO 



GO TO DU; 

F_SCAN: PROC(CH) CHARI 1); 

/ # 

F SCAN SEARCHES WORK S.FOR THE FIRST OPERATOR 
ENCOUNTERED AND RETURNS THIS OPERATOR. IT ALSO SETS POSIT 
TO THE LOCATION OF THE OPERATOR IN THE STRING. 



* / 

f 'if. if # if df # £ # if if ❖ ~f if if If if if if jfc 5$C ^ if # # # df # sfc 3j< ^ if ^ # if 3$C ^ 3$C if # # jfc 3$C # j{c 3$C 3$C if 3fc # 3fc / 

DCL CH CHAR I 240 ) VARYING; 

DCL CHARC CHARI I); 

DO WHILE I CHARC -.= •;'}; 

POSIT = POSIT + 1 ; 

CHARC = SUBSTRICH, POSIT, 1 ) ; 

IF CHARC <«#' | CHARC = '=* 

THEN RETURN! CHARC) ; 

END; 

RETURN! CHARC) ; 

END F SCAN; 

R__SCAR: PR0CtX T Y{; 

/ if # £ if * i, : # if Z< if # if # * # ## # # if £ * # # # if # £ # # # # # jj : # # * # £ # # # 5}C £ # # # # 5*t £ £ # 2$C # 3$C / 

/* 

R_SCAN BEGINS AT POSIT AND SEARCHES WORK S BACKWARDS 
GETTING THE FIRST TWO OPERANDS ENCOUNTERED. ftFTFR THE 
SECOND OPERAND HAS BEEN DETERMINED P_SCAN INSERTS A TEM- 
PORARY OPERAND INTO W0RK_S WHICH INDICATED WHERE THE 
PARTIAL ANSWER OBTAINED FROM THE OPERANDS WILL BE LOCATED 

4/ 

/ j, x a, .u j/ o, >v J/'A ■>'/ «/r ^ a. ><-. a ^ .o j. ^ v- j. ,«. ^ v, <a- J/ j- •- -j. j. j. ^ j, / 

4' v t v v *’«'• > r' V',' ^ ^ 'r v n' *>'• *r •t' n' ^ ^ v 'r v ^ v -r T v 'i' T -v> ■v- -v t - ■v ' 4 ' t ^ t- w v v *v* r ri'/ 



DCL ( X , Y ) CHARI 3) VARYING; 

DCL I HOLD) CHARI I ) ; 

HOLD = • *; 

• PLACE = POSIT; 

DO WHILE I HOLD -= • C HOLD - = 'S'); 

PLACE = PLACE -1 ; 

HOLD = SUBSTRI PR0B_S , PLACE , 1 ) ; 

END; 

Y = SUBSTR I PRO B S , PLACE , POS IT-PLACE ) ; 

PROB_S = SUBSTRTPROB_S, I, PLACE-1) i | SUBSTR I PR0B_S , 

POSIT+I ) ; 

POSIT = PLACE; 

HOLD = « ' ; 

DO WHILE I HOLD -= ' # 8 £ HOLD -='3'); 

PLACE = PLACE-1; 

HOLD = SUBSTRI PROB_S, PLACE, 1 ) ; 

END; 

X = SUBSTR(PROB_S, PLACE, POSIT-PLACE) ; 

IF PLACE = 1 

THEN PRO B_S = • 3* | I TEMP_C | I SUBSTRI PROB S , POS I T ) ; 

ELSE PR0B_S = SUBSTRI PROB S r 1 , PLACE-1 ) | I * 3 ‘ | I TEMP_C I I 

SUBSTRI PiT0B_S, POSIT) ; 

POSIT = POSIT - l; 

RETURN; 

END R SCAN; 

FINIS: EfiD PROBSOL; 
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ADD_ IT : PROC <X,Y, U, V, FLAG) 



/ ^ ^ # # if. £ :|t 5 ^ ^ if * if if if if if ❖ if i- if * # if if ^ if if i - * * if if if ❖ if $$$$$:(:# if if if if if if * ^ / 



ADD_IT ADDS TWO NUMBERS IN THE MANNER THAT A STUDENT 
WOULD. THE TWO CORRESPONDING DIGITS IN EACH NUMBER ARE 
ADDED TOGETHER. IF THE RESULT IS GREATER THAN 9 THE 
CORRESPONDING DIGIT IN THE ANSWER IS THE SUM MODULUS 10. 
AND THE CARRY STORAGE FOR THE NEXT HIGHER DIGET POSITION 
IS SET TO THE SUM/10. 



*/ 



/ ■ou v*-» J/ ^ ^ >v ^sV 

^ >JV ^pi #yv ^ ^ 



/(** ^ # 






DCL (X,Y,U,V,7.) PTR; 

DCL ( D I G_ I » D I G 2 * GR_D I G ) FIXED BIN<15); 

OCL FLAG B IT ( lT J 
ON ERROR GO TO CONT; 

D I G_1 = X— >D I GET S ; DIG_2 = Y->D I GET S ; 

GR_D I G = MAX ( D IG_1 » D I G_2 ) ; LST_DI G = MINI D I G_ 1 » D I G_2 ) ; 
IF FLAG 
THEN DO? 

FREE U-2PR0BLFM; 

FREE V-2PRUBLEM; 

END; 

CONT : S I ZE = GR DIG + 1; 

ALLOCATE PROBLEM; 

U = pp; 

ALLOCATE PROBLEM; 

V = PP; 

U-2PR0B = 0; 

V— >PROB = 0; 

DO I = 1 TO LST_DIG; 

U-2PR0B ( I ) = X-> PROB ( I J + Y->PROB ( I ) + V-> PROB(I); 
IF U-2PR0B ( I J >= 10 
THEN DO; 

V->PROB ( I +1 ) = U-> PROB ( I ) / 10 ; 

U— >PR08 { I )= MOD ( U->PROB ( I ) ,101 ; 

END; 

END; 

IF D I G_ 1 > D IG_2 THEN Z = X; 

ELSE Z = Y; 

DO I = LST DIG +1 TO GR_D I G ; 

U-> PROB ( I ) = Z— > PROB ( I I + V->PROB(II; 

IF U ->PROB ( I )> 10 
THEN DO; 

V->PROB ( I +11= U-> PROB ( II / 10 ; 

U-2PR0B < I ) = M0D(U->PR0B(1J , 10J ; 

END; 

U->PROB(GR DIG + 1» = V->PR08 (GR DIG +1); 

RETURN; 

END ADD_IT; 
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SUB_.IT : PROC(X,Y,U,V,FLAG) 



^i:#*** #*£*❖** 

/* 



<J< <J> xC V/ ^ >V v*f <%l *■ *J> vly ^ OU 4f v»# ^ ^ sl^ <JU v*/ <JU «JU «X* JU 4- 0>- OU 

T ^i V* ^ V ^ -T V 'T ^ -r 'T 'T 'T ^ 'T ^ 



/ 



SUB IT SUBTRACTS TWO NUMBERS A DIGIT AT A TIME. IF 
THE DIG fT BEING SUBTRACTED IS GREATER THAN THE DIGIT FROM 
WHICH IT IS BEING SUBTRACTED THAN A BORROW IS PERFORMED 
FROM THE NEXT HIGHEST DIGIT AND THE CARRY DIGIT FOR THE 
DIGITS BEING SUBTRACTED IS INCREASED BY 10. THUS THE 
ANSWER DIGIT CORRESPONDING TO THE DIGITS BEING SUBTRACTED 
IS ALWAYS POSITIVE. 






*/ 

vL */<» ^ «x* vC ^ JU aA# «x* -X* «jv *V ^ ^ / 

^ ^ ^ t ^ r ^ ¥ t ^ ^ ^ ^ / 



DCL <X*Y,U,V,Z) PTR; 

DCL (DIG_1,DIG_2,GR_DIG) FIXED B I N ( 1 5 ) ; 

DCL FLAG BIT(I); 

ON ERROR GO TO CONT; 

DIG L = X— >D I GETS ; DIG_2 = Y->DIGETS; 

GR_DlG = MAX ( DI G_I r D I G_2 ) ; LST_D I G = M IN ( D I G_ I , D IG_2 ) ; 
IF FLAG 
THEN DO; 

FREE U->PROBLEK; 

FREE V->PROBLEM; 

END ; 

CONT: SIZE = GR_D I G ; 

ALLOCATE PROBLEM; 

U = PP; 

ALLOCATE PROBLEM; 

V = PP; 

U->PROB = 0; 

V— > PROB = 0; 

DO I - 1 TO LST_DIG; 

IF X->PR0B(I) < Y— >PROB ( I J 
THEN DO; 

V->PR0B ( I ) = 10; 

X->PROB ( I + 1) = X— >PR0B ( I +1 ) -l; 

END; 

U->PROB ( I ) = V— >PR0B ( I ) + X->PR0B ( I ) - Y->PR0B(IJ; 
END; 

DO I = LST DIG + L TO GR DIG; 

U->PR0B( I ) = X->PR0l3(n; 

END; 

RETURN; 

END SUB_IT; 
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MUL_IT:PROC(X,Y,U,V,FLAG) ; 



/* 



# 3{C %Z 3^ # # 3^ # £ # # # >}? £ # # ^£ £ £ # # # # / 



MULT IT MULTIPLIES THE DIGITS OF THE MULTIPLICAND 
BY ONE DIGIT OF THE MULTIPLIER. CARRIES ARE PRODUCED WHEN 
THE RESULT OF THIS MULTIPLICATION EXCEEDS 9. ADD_I T IS 
THEN CALLED TO SUM THE ANSWER AND THE CARRIES PRODUCING 
A SUBMULTIPLE WHICH IS STORED I N ' PART ' . WHEN ALL OF THE 
DIGITS OF THE MULTIPLIER HAVE BEEN USED THE SUBMULTIPLES 
ARE TOTALED TO PRODUCE THE FINAL RESULT. 






*/ 

jjc ;£ jjc ^ # if. # # sjc Hf. ^ Of :£ ^ >*c 5 J: 3{c 5$c 



DCL PARTI*) CONTROLLED FIXED BIN! 15) I 
DCL <X,Y, UfVtZiTUtTVI PTR ; 

DCL ( DIG_1 ,DIG_2»GR_D IG, TOTAL ) FIXED BIN! 15); 

DCL FLAG BIT! I) ; 

ON ERROR GO TO CONT; 

D I G_1 = X->D I GE TS ; DIG_2 = Y- > D I G E T S ; 

GR„D I G = MAX ( DIG_1 » DIG_2 ) ; L.ST_DIG = M INI DI G__l , D 1G_2 ) ; 

IF FLAG 
THEN DO; 

FREE U->PROBLEM; 

FREE V->PROBLEM; 

END; 

CONT : S I ZE = D1G_1 + DIG_2; 

ALLOCATE PROBLEM; U = PP; 

ALLOCATE PROBLEM; V = PP; 

U->PROB = 0; V-> PROB = 0; 

K= -I ; FLAG = • O' B? 

ALLOCATE PART(DIG_2)J 
PART = o; 

DO I =1 TO D I G_2 ; 

K = K+l; 

DO J = I TO D I G_ 1 ; 

U~>PROB (K+J ) = Y-> PROB ( I ) * X->PROB(Ji; 

JF U->PROB(K+J) >10 
THEN DO; 

V->PROB ( K+J + l ) = V->PROB (K+J+l )+U->PROB 

I K+J ) /10; 

U— >PROB ( K+ J ) = MODI U->PROB( K + J ) , 10) ; 

IF V->PROB (K+J+l ) > 10 
THEN DO; 

V— >PROB (K+J + 2)=V-->PR0B(K+J + 2) + 

V->PROB (K+J+l )/io; 

V->PROB (K+J+l )=MOD(V->PROB( K+J+l S ,10 

end; 

end; 

END; 

CALL ADD_IT(U, V,TU,TV,FLAG) ; 

MM= l ; 

DO L = 1 TO TU->DIGETS”l ; 

PART ( K+l ) = TU->PROB ( L ) *MM + PART(K+1); 

MM = MM * 10; 

end; 

FREE TV -> PROBLEM; 

FREE TU-> PROBLEM; 

U->PRCB = o; V->PROB = o; 

END; 

TOTAL = 0; 

DO LL = 1 TO DIG_2; 

TOTAL = TOTAL + PART(LL); 

END; 

DO LLL= 1 TO U->DIGETS; 

U -> PROB(LLL) = MOD ( TOT AL , 1 0 ) ; 

TOTAL = TOTAL / 10; 

END; 

FLAG = • 1 • B ; 

RETURN ; 

END MUL_IT; 
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DIV_IT:PROC(X s Y,U,V»FLAG) ; 



/ 

/ 



5jt 5^ ❖ # # # 3fc sfcljc 3^ 3^ ijc ## ## 5jc 3$C 3fc £ 3jC 3$C ##3^ # 3$? # # ^C # 3jC jjt 3$C # £ ^C f 



D I V_I T EXAMINES THE DIVIDEND STARTING AT THE HIGHEST 
PLACE VALUE AN LOCATES THE DIGIT WHERE THE DJVISCR WILL 
DIVIDE THE DIVIDEND. THE DIVISION IS PERFORMED AND THE 
REMAINDER IS ADDED TO THE PART OF THE DIVIDEND TO THE 
RIGHT OF THE DIGIT WHERE THE DIVISION OCCURRED AND THE 
PROCESS REPEATS. WHEN THE DIVISION IS 'COMPLETED THE UNITS 
DIGITS OF THE CARRY ARRAY CONTAINS THE REMAINDER. 



/ # # ❖ # * # ❖ ❖ # ❖ # ❖ # # * ❖ $ ^ ❖ # ❖ # * ❖ £ * > 



; #j{c 3 {: j {;:{5 3 {s 3 ?c 5 ^: 3 {e :(c 3 jt -if -if if. ^ 



DC L (X*Y,UfVfZ) PTR; 

DCL ( DIG_1 ,DIG_2vGR_DIG) FIXED B I N ( 15 ) ; 

DCL FLAG BIT( II ; 

DCL MULT FIXED BIN (15); 

DCLIDIVERtDI V) FIXED BIN(15)J 
ON ERROR GO TO CONT; 

DIG 1 = X->D I GET S ; DIG_2 = Y->D I GETS; 

GR_DIG = MAX ( D 1 G_1 s D I G_2 ) ; LST_DI G = M IN ( D I G_1 » D IG_2 ) ; 
IF FLAG 
THEN DO; 

FREE V->PROBLEM j 
FREE U->PROBLEM? 

END ; 

SIZE = GR DIG; 

CONT : ALLOCAT E PROBLEM; 

U = PP; 

ALLOCATE PROBLEM; 

V = pp; 

U-> PROB = 0; 

V->PROB = o; 

MULT = 1; 

DO I = 1 TO DIG 2; 

DIV = DIV + TY->PROB(I) * MULT); 

MULT = MULT * 10; 

END ; 

MULT = 10; 

DIVER = 0; 

I = DIG_l; 

START: DIVER = ( X->PROB ( I )* MULT/10) + DIVER * MULT; 

NUM = DIVER/DIV; 

IF NUM = 0 
THEN DO; 

I = I-i; 

IF I = 0 
THEN DO; 

V— > PRO B ( 1 ) = DIVER; 

GO TO FINISH; 

END; 

GO TO START; 

END; 

ELSE DO; 

U->PROB { I )= DIVER/DIV; 

V— >PROB ( I ) = MOD (DIVER»DIV) ; 

DIVER = V->PROB< I ) ; 

I = 1-1 ; 

IF I = 0 THEN GO TO FINISH; 

GO TO START; 

END; 

FINISH: RETURN; 

END DIV_IT; 
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ESTAB: PROC 



/ jfc * if. 3 $C ❖ # # # £ * # * 3 $C ^ ^ # # # 3 $C ££ £ # * * £ sjc fc # £ £ * * # * # # / 

/^C 

ESTAB ESTABLISHES THE LEVELS, PROBLEM TYPES AND 
ASSOCIATED TREES FROM THE FILE'TREE'. THUS IT IS PART OF 
THE OFF-LINE I/O PACKAGE REQUIRED FOR COMMUNICATION WITH 
THE TEACHER, 

*/ 

/ ^*> ^ v*- >V V/ >•/ Jf ^ ^ ^ ^ ^ Of O" Of o^ Of Of o^ o^ o»> Of o^ x • Of O/ O/ -jy x o- o- o«» Of Of o^ Of Oy Oy o# Oy ju %v o# Of Oy jl O/ / 

-r* ^ ^ ^ t* ^ v ^ ^ ^ ^ t v v in ^ t* t* ^ ^ ^ ^ ir ^ ^ ^ ^ ^ ^ ‘'r -r* nr* v 'f *r* v ^ ^ v f 



DCL J_CHAR CHAR (9); 

DCL J C CHAR 1 1 } ; 

DCL YCS FIXED BIN( 15) ; 

DCL DEPTH FIXED BIN! L 5 ) ; 

DCL SET PTR PTR ; 

OPEN FIUE(TREE) INPUT; 

/ >Jc # ^ £ ?Jc # # # >;c # 5jc# $$$:{£ # 5;c^ ijc # ajc# ^ ## # * £ ❖ ❖ ❖ ❖ ❖ # * / 

/^ 

THE CODE FROM ’GET L' TO * GET P c GETS THE INFORMATION 
REQUIRED FOR ONE SET OF THE DATA STRUCTURE 'LEVELS’. WHEN 
THIS IS ACCOMPLISHED, THE INFORMATION FOR A 'PROBLEM 
TYPE' ASSOCIATED WITH THAT 'LEVEL* IS OBTAINED. 

*/ 

/ 5jc # 551 3jc sjc # # ajc# :$£ sjc # jfc :$c # ifc :£ sfc 3{c :£ ^ sfc %: ^ 3{c # ^ # # # ❖ # ❖ # # # ❖ ❖ ❖ ❖ / 

GET_L : GET FILE! TREE I EDIT ( BUFFER KCOL ( 1 ), A( 80) ) ; 

IF SUBSTR ( BUFFER, 1,3 J = 'EOF' 

THEN DO; 

DO I = LEV NR -(I TO 10; 

L EV_PTk ( I ) = NULL ; 

END; 

RETURN; 

END; 

LEVEL C = SUBSTRI BUFFER, 8,3 ) ; 

LEV NR = LEVEL_C; 

NAMF ( LEV_NR ) = SUBSTRI BUFFER, 12,60) ; 

N_S(LEV_NR) = SUBSTRI BUFFER, 73 ) ; 

GET F 1 L E ( TREE I EDIT ( BUFFER KCOL ( 1 ), At 80) ) ? 

NR_P_A( LEV_NR) = SUBS TR ( BUFFER , L , 20 J ; 

1 = 0; 

N„P(LEV_NR) = 0; 

f jfc >jc ## 3 jc # ^ # # >!<:£:# ❖ ❖=£ >!< 5 $: ^ ^ # >J:^c 2 jx ## # 3 $c %. / 

/ ^ 

THE CODE TO 'BRANCHES' GETS THE INFORMATION FOR 
ESTABLISHING THE STRUCTURE ' PR08_TYPE 1 . WHEN THIS 
INFORMATION HAS BEEN OBTAINED, THE ‘TREE* FOR THE PROBLEM 
TYPE IS ESTABLISHED BEFORE THE NEXT PROBLEM TYPE IS 
OBTAINED. WHEN ALL PROBLEM TYPES HAVE BEEN ESTABLISHED, 
CONTROL RETURNS TO 1 GET _L * TO GET THE NEXT LEVEL. 

Y / 

/******#**##**#***##***##**#*###**##**#***#*****#**#***#**/ 

GET_P : GE T F I LEI TREE ) ED I T ( BUFFER M COL ( 1 ) , A ( 80 ) ); 

IF SUBSTRI BUFFER, 1,3) = 'EOL' 

THEN GO TO SETUP; 

N_P I LE V_NR ) = N_P ( L E V_NR ) + 1; 

I = I + 1 ; 

ALLOCATE PR0B_TYPE; 

IF I = 1 
THEN DO; 

L E V_PTR I LEV_NR ) = PTP; 

END ; 

ELSE P_PT R->P_N EXT = PTP; 

ACTIVE = PTP; 

P PTR = ACTIVE; 

ACTIVE -> P_N EXT = NULL; 

NR_ST_C = SUBSTRI BUFFER, 1 , 15 I ; 

NR ST = NR ST_C; 

ACTIVE -> N_0_S = NR_ST; 

PROB S = ” ; 
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ijojc age 3fc ;{< # # ## # # # ^ ## # :fc * # ## # # # #:<« ❖❖ ## 2 ^ ^e / 

/* 

THE PROBLEM FORMAT IS OBTAINED AND CONVERTED TO 
POL ISH. 

*/ 

/#### ## 3jc * # * * # # 5^ # # # ❖ £ ^ ^ # * # ^C 5$C / 

AGAIN: GET F ILE ! TREE ) EDIT ( BUFFER > (COL ( 1 ), A! 80 )) J 
SEMI = INDEX! BUFFER, *;'} ; 

IF SEMI = 0 
THEN DO? 

PROB_S = PROB„S |( BUFFER; 

GO TO AGAIN; 

END; 

PROB_S = PROB S M SUBSTR(BUFFER, I, SEMI I ; 

SIZE = LENGTHlPROB_S) ; 

ALLOCATE PRC)BLEM_S; 

ACTIVE -> PRO B_I = PSP; 

N_ACT I VE = PSP; 

N ACT I V E-> PROB_ST R = PR0B_S; 

CALL POLISH! PROB S) J 
SIZE = LE NGTH ( PROB_S J ; 

ALLOCATE PRGBL EM_S ; 

ACT I VE— >PROB P = PSP; 

N_ACT I V E = PSP; 

N_ACT I V E ->PROB_STR = PROB_S; 

J = 0; 

Sc'#*####*##'###.#*'#.'#'##.####'#* / 

/ ^ 

THE CONDITIONS FOR HARD, MEDIUM AND EASY PROBLEMS ARE 
OBTAINED. 

*/ 

P2 : COND_S =• • ; 

AGAIN1 : 

GET FILE! TREE I ED I T < BU FF ER »( COL ( 1) , A! 80 > ) ; 

SE M I = I NDEX ! BUFFER ,*;«); 

IF SEMI = 0 
THEN DO; 

COND S = CO ND„S II BUFFER; 

GO T'O AGAIN; 

END; 

COND_S = COND S II SUBSTR (BUFFER, 1 » SEMI J ; 

SIZE = LENGTHlCOND_S ) ; 

ALLOCATE CONDITIONS; 

INACTIVE = CP; 

N_ACT I V E— > COND = COND_S; 

J= J + l; 

IF J = l 
THEN DO; 

ACTIVE -> HARD„P = CP; 

GO TO P2 ; 

END; 

IF J = 2 
THEN DO; 

ACTIVE -> MED_P = CP; 

GO TO P2; 

END; 

IF J = 3 

THEN ACT I V E-> EASY_P = CP; 

DEPTH = 0; 

/ ^ 

THE TREES FOR EACH PROBLEM TYPE ARE OBTAINED. THE 
CONDITIONS AND PROCESS FOR EACH NODE AT THE SAME LEVEL 
ARF OBTAINED FIRST. THEN THE FIRST NODE AT THAT LEVEL IS 
EXPANDED TO THE NEXT LEVEL BY OBTAINING ALL CONDITIONS 
AND PROCESSES AT THE NEXT LEVEL ASSOCIATED WITH THE NODE 
BEING EXPANDED. THEN THE PROCESS REPEATS. THUS THE NODES 
ARE ESTABLISHED IN A BREADTH-WISE MANNER AT EACH LEVEL, 
BUT EACH LEVEL IS EXPANDED IN A DEPTH-WISE MANNER. 

*/ 

/ifc*## £*:>:* *#&#* ** £ ***>:< *5** ###*:{< ***** ************/ 
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BRANCHES: 

DEPTH= DEPTH + 1; 

K — Q • 

P3 : GET F I L E ( TREE ) ED I T ( BUF F ER ) ( COL ( 1 ) , A( 80 ) ) ; 

ALLOCATE NODE; 

/ # 'if. if if if if if if if if # # # # ^ aje ^ ^ # # jjt ^ # if 5^ # # # # % ;« # # # %c if if ^ if # ^ % # / 

/ ^ 

' EOC ' INDICATES THAT ALL CONDITIONS AND PROCESSES AT 
THAT LEVEL HAVE BEEN OBTAINED AND PROCEED TO THE NEXT 
NODE. 






IF SUB STR ( BUFFER , I ,3 ) = 'EOC' 

THEN DO; 

N ACTIVE = ACT I VE-> RET_P; 

IF DEPTH = 1 

THEN ACTIVE = N_ACTIVE -> P_BRANCH; 

ELSE ACTIVE = N ACTIVE ~> N_BRANCH? 

AGAI N4 : N_ACTI V E = ACTIVE -> PROC.P ; 

^ ^ ^ y 



«Y^ 4^ SfK ^ • \ /y\ 






IF THE PROCESS AT THE NODE IS 'HA:;' THEN THE NODE 
HAS NO LOWER LEVELS TO EXPAND. GO TO NEXT NODE AT THE 
SAME LEVEL. 



*/ 

*/ 



*/ 



❖ / 

IF N_ACTIVE -> COND -»= 'HA:;' 

THEN GO TO BRANCHES? 

ELSE DO; 

ACTIVE -> N_BR ANCH = NULL; 

/* 



/ 



IF N_NEXT IS NULL, THEN THERE ARE NO MORE NODES AT 
THAT LEVEL TO BE EXPANDED. RETURN TO NEXT HIGHER LEVEL 
AND EXPAND THE NEXT NODE AT THAT LEVEL. 



djc £ # # ■%. # # # $ * # :Je * ^ s}c ^ :£ % # $. if * # & ajs if * if if if 



❖ / 

if if if if # if :$c sfc if # # f 



AG A I N5 : 1 F ACTIVE -> N_NEXT -n = NULL 
THEN DO; 

ACTIVE ^ ACTIVE -> N_NE XT ; 
GO TO AGAIN4; 



END; 

ELSE DO; 

DEPTH = DEPTH -1; 

IF DEPTH = 0 
THEN GO TO GET P; 

ACTIVE = ACTIVF -> RET_P ; 
GO TO AGAIN5; 

END; 



END; 

END; 

K = K-t-L; 

IF DEPTH = I 
THEN DO; 

IF K = I 

THEN ACTIVE -> P BRANCH = NP; 

ELSE ACT I VE-> N_REXT = NP ; 

END; 

ELSE DO? 

IF K = 1 

THEN ACTIVE -> N_BR ANC H = NP; 

ELSE ACTIVE -> N_NEXT = NP; 

END; 

N ACTIVE = NP; 

N_AC T I VE -> N.NEXT = NULL; 

IF K = I 

THEN N ACTIVE -> RET_P = ACTIVE; 

ELSE NlACTIVE -> RET_P = ACTIVE -> RET_P; 
ACTIVE = N_ACTIVE; 

NR_ST_C = SUBSTRI BUFFER, 1 ,15) ; 

NR ST = NR ST C; 

active -> Success = nr_st; 
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• • ; 



CON D_ s = ' ' ; 

AGAIN2: 

/ ^ 

GET THE CONDITION LIST FOR DETERMINING IF A NODE IS 
APPLICABLE. 

*/ 

/ *ju *V ••■V ^ *X» *.V V' ■A' V' ^ J' J? >iV J. ^ sV - 1- *>» xV J. J. *X» — V J. J. -^/ j» <(. 'V x*^ sV %*/ J. x*. >l* 'V »•/ «JU Jy •X- X' xl» Jf »v *v wu / 

/ <? t 'r v v T'i' ; r ^ ir* ^ 'r 'f 1 v A' t n ' 'r v ^ ^ -r* *r T v T 1 <r v t v 'o 'r v <r 'ii' t- ^ ¥ v n' -?■ v T'r-^TTVV'rr'i 1 ^/ 

GET FILE! TREE 1 E D I T ( BUFF E R ) ( COL ( 1 ) , A( 80 ) I ; 

SEMI = INDEX! BUFFER, • ; * ) ; 

IF SEMI = 0 
THEN DO; 

COND S = C0ND_S I I BUFFER; 

GO TO AGAIN2; 

END; 

C 0 N D_ S = COND S| ! SUBS TR ( BUFFER , L , S EMI ); 

SIZE = LENGTHlCOND S); 

ALLOCATE CONDITIONS; 

ACTIVE -> C0ND_P = CP; 

N_ACT I V E = CP; 

N ACTIVE -> COND = C0ND_S; 

C0ND_S = ‘ ' 

AGAIN3: 

/ # # # # :&3j< * # # # ^ ^ #?}c ^ ^ £ / 

/ ^ 

GET THE PROCESS TO BE DONE WHEN THE NODE IS 
APPLICABLE. 

*/ 

GET FILE! TREE I ED I T ( BU FF ERI ( COL (I) , A! 80 II ; 

SEMI = INDEX! BUFFER, 1 ; 5 J ; 

IF SEMI = 0 
THEN DO; 

C0ND_ S = CO ND_S || BUFFER; 

GO TO AGAIN3; 

END; 

C0ND_S = COND S || SUDSTR ( BUFFER , I , SEMI) ; 

SIZE = LENGTHlCOND_S) ; 

ALLOCATE CONDITIONS; 

ACT I VE-> PR0C_P = CP; 

N ACTIVE = CP; 

N_ACT I VE -> COND = C0ND_S; 

GO TO P3; 

SETUP: 

/ 

/* 

DETERMINE THE ARGUMENTS USED IN THE PROBLEM FORMAT 
AND CREATE THE ARGUMENT LIST. 

*/ 

DO L = 1 TO N_P! LEV_NR) ; 

IF L = I 

THEN ACTIVE = LEV PTR ( LEV_NR I ; 

ELSE ACTIVE = ACTIVE -> P_NEXT; 

N_ACT I VE = ACTIVE -> PR0B_P; 

SIZE = 0; 

DO J = I TO 26; 

J_CHAR = J; 

IF J < 10 

THEN J_C = SUBSTR! J_CHAR, 9, 1 ) ; 

ELSE J C = SUBSTR ( J CHAR,3,2); 

YES = TNDEX(N_ACTIVE->PR08_STR,J_C) ; 

IF YES -.= 0 

THEN SIZE = SIZE + I; 

END; 

ALLOCATE ARGUEMENTS; 

ACTIVE -> ARG_P = AP; 

SET_PTR = AP; 

K = o * 

DO J = 1 TO 26; 

J CHAR = j; 

IF J < 10 
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THEN J_C = SUBSTR ( J_CHAR ,9,1) ; 

ELSE J C = SUBSTR ( J CHAR,3,2); 

YES = TNDEX(N_ACTIV£->PR03_STR t J_C) ; 

IF YES --= 0 
THEN DO; 

^ =r {\+ • 

SET_PTR-> ARGUE ( K ) = TRANS! J); 

END; 

END; 

END; 

GO TO GET_L| 

END ESTAB; 



REFILE: PROC; 



# # # # % i,c # # 5^ £ # # # # j}c ^ 5^ ^ / 

/* 

REFILE IS USED TO UPDATE THE FILE TREE BY RESTORING 
THE LEVELS, PROBLEM TYPES, AND TREES TO BACK-UP STORAGE, 
WITH ANY CORRECTIONS THAT MAY HAVE BEEN MADE. IT CREATES 
THE FILE COPTREE IN THE SAME MANNER ESTAB WOULD EXPECT 
TO FIND THE OATA. THEN THE FILE TREE MAY BE ERASED AND 
THE FILE COPTREE INSERTED IN ITS PLACE < 

*/ 

/ 2$: jfc >Jc ;Jc ijc 5j( :$£ # 3$£ ijc # 5jc 3{< jje y,C >|< ifc 2}t 35s # 3yC ^ 5J: 4s sjc 3$T sjc ^ :<2I :{c jjc jJ< ^ ^ ^ / 

DCL ( N_S CH , N 0_S C,SUC_C) CHARQ5); 

DCL N_S_U CHTlR ( 7T; 

DCL LEV EL_CH CHAR(9 ) ; 

DCL LE VE L_C CHAR(3); 

DCLIDEPTH, TIMES ) FJXFD BIN(15); 

DCL (P PTR,LOC_PTR) PTR ; 

DCL TOP BIT(l); 

OPEN FILE (COPTREE) OUTPUT ; 

DO I = 1 TO 10 WHILE(LEV_PTR( I) -»= NULL); 



/* 



GET DATA FOR LEVEL AND MAKE UP LEVEL CARDS. 



*/ 

^ # ❖ ❖ # ^ £ 3jc ## * * ^ £ # ###/ 

N_S_CH = N S ( I ) ; 

N_S_C = SDBSTR(N_S_CH,9) ; 

LfVEL_CH = I; 

LEVEL_C = SUBSTR ( L EV EL_CH r 7 ) ; 

BUFFER = 'LEVEL 1 | i LE VEL_C ! | « • | | N AM E ( .1 ) | | • * I I N_ S_C ; 

PUT FILE! COPTREE ) ED IT ( BUFFER ) ( COL ( 1 ) , A ( 80 ) ) ; 

J = 0; 

/* 

THE NEXT SECTION OF CODE GETS THE INFORMATION 
REGARDING A PROBLEM TYPE . 

*/ 

/ 

NEXT_P : J = J+ 1 ; 

IF J = 1 

THEN P_PTR = LEV_PTR(I); 

ELSE P_PTR = P_PTR -> P_NEXT; ACTIVE = P_PTR; 

Z ^ ^ ^ ^ ^ V T ^ V V V VT T ^ ^ ^ V ^ V V V ^ ^ V *V'T V •‘r V V T ^ V V ^ ^ T V V ^ V V ^ V V T V -r V *r 'T' Z 

/ * 

THERE ARE NO MORE PROBLEMS IN THE LEVEL. 

*/ 

V/ JL \V *-V ^ %v ^ ^ »4f «X- -JU J-* ^6- vC* «//• JU X JL* Oy «wV ^ st >0 s^y ••X JU X X X X X X X X X X X X / 

-V' V ^ T v ^ ^ v V ^ r X* ^ ^ ^ ^ t ^ ^ t ^ ^ ^ ^ ¥ *1' -r 'V t ¥ ^ t ^ t v v t ¥ t ^ v v ^ ^ ^ ''r / 

IF ACTIVE = NULL 
THEN DO; 

BUFFER = • EOL' ; 

PUT F I LE ( COPTREE) E D I T ( BUF F E R ) ( COL ( L ) , A ( 8 0 ) ) ; 
GO TO ND; 

END; 
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/* 

GET THE NUMBER OF PROBLEMS ASKED BY THE THE COMPUTER 
OF THIS PROBLEM TYPE. 



Y/ 

N_0_S_C = ACT I VE— >N_0_S; 

BUFFER = NOS C; 

PUT F I LE ( COPTREE ) EDIT ( BUFFER) ( COL ( I ) t A( 80 )) ; 



/* 



> 1 - J. tJ - x*. x/. x J / Vy X*. xV x^y Jty ^ x>y Jy X*/ xf y x'y X*y xty x*y xiy Jy Oy x'y x^y x/y J# 

•'i' *^' t 'i -r 't' 'v* “V* T -r J r 'r 'r ^ ¥■ r *r v -r ^ v 'i 1 ¥ T ^ -r 'r 



'f v -nr* '«' 






GET THE PROBLEMS FORMAT. 



*/ 

/ # ## ###:£;£:£;$: # :Jc ## yjc ;£#### :£ # # # 3$' 2l« # 3*C ?*C # # # # % 5jc y,f # 3*C % 3*c :£ 'Z'^c ^ifc^yjc f 

N_ ACTIVE = ACTIVE -> PR0B_I ; 

TIMES = N_ACT I V E -> P NR / 80; 

PROB S = R ACTIVE -> PR0B_STR; 

DO K = 1 TO TIMES; 

BUFFER = SU BSTR ( PROB StL.60); 

PUT F I LE ( COPTREE ) E DlT ( BUFF E R ) ( COL (1) , A ( 80 ) ) ; 

PR0B_S = SUBSTR ( PR0B_S , 81 ) ; 

END; 

IF PR0B_S -= * * 

THEN DO; 

BUFFER = PR0B_S; 

PUT FILE! COPTREE ) ED I T ( BUF F ER ) ( COL ( I) , A ( 80 ) > ; 

END; 

f -if. ijc # %. ?Jc ^ # sficsQc yjs 5{c # Up. sj< 3{c # :£ ip s}c ip ip 5}C jjc yfc :£ jJ? # ip sje ;£ ;$c ip 3{c sfr ;f: ^ yjc ## ip 25 c y{c ;}c 5 ^ 3 $: / 

/❖ 

GET THE CONDITIONS FOR HARD, MEDIUM AND EASY PROBLEMS. 

*/ 

/ # 3$c ip ip 5*C 2jc^c 5jc ^}c y^c 5^ ipip # 3{t ip ip # # # £ # 3{t #yjc £ 3$: # # 3^ # 3$c ;*c £ # >}c :$c # 3$c / 

DO K •-= 1 TO 3 ; 

IF K = 1 

THEN N_ACTIVE = ACTIVE -> HARD_P; 

IF K = 2 

THEN INACTIVE = ACTIVE -> ME D_P ; 

IF K = 3 

THEN N_ACT I VE = ACTIVE -> EASY P; 

TIMES = N_ACT I V E --> C NR/80; 

C0ND_S = N ACTIVE -> COND; 

DO 1. = 1 TO TIMES; 

BUFFER = SU BSTR ( C0ND_S » l ,-80 ) ; 

PUT FILE(CQPTREE) EDI T ( BUFFER ) (COL ( I ) , A ( 80 ) ) ; 
COND S = SUBSTR (COND S,81); 

END; 

I F COND_S -= * • 

THEN DO; 

BUFFER = COND S; 

PUT FILE(COPTlsEE ) EDITC BUFFER )( COL ( 1 ) , A< 80) 

END; 

END; 

/ £ # J$c# ## # £ # ❖ # ❖ ❖❖ ###:$: # ^ # yjc 3$c:£ ip ip ## ipip ip # £ # 3$c # ip ip :£ yj: / 

/Y 

GET THE ASSISTANCE TREE ASSOCIATED WITH THE PROBLEM 
TYPE JUST PLACED IN THE FILE COPTREE. 

*/ 

/ V-* sC s*/ st» 4/ sV 4/ 4/ 4/ <X st> %l» vt- 4f 4> nU 4f ^ %V 4/ %i» J/ 4/ 4f X X X X X X X X *^V X X 4/ X X X X X X X X X X X X X X X / 

^ ^ -p ^ ^p -p p *p p ^ p "p p p p p -p* p p p p p p p p p p p p p p p p p p p p p p p p p.p p p / 



DEPTH = 0; 

ACTIVE = ACTIVE -> P BRANCH; 

TOP = ’ 1 • B; 

NEXT_C : 

DEPTH = DEPTH + 1; L0C_PTR = ACTIVE; 

DO WHILEtLOC PTR -^= NULL); ACTIVE = LOC PTR ; 
SUC_C = AOTIVE -> SUCCESS; 

BUFFER = SUC„C; 

PUT F I LE ( COPTREE ) ED IT( BUFFER M COL ( 1 ), A< 80 )l ; 
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CON: 

4= ❖ ❖ 4= * # # 4 ❖ # ❖ 4c # # ❖ :{: # :{< $ / 

/ ^ 

GET THE CONDITIONS ON A BRANCH. 

*/ 

LOC_PTR = ACTIVE -> COND_P; 

CONORS = LOC_PT R -> COND; 

TIMES = LOC_PTR -> C_NR/80; 

DO K = I TO TIMES; 

BUFFER = SUBSTR ( COND S»1,80J; 

PUT FILE( COPTREE ) EDTT( BUFFER) (COL ( 1 ), A( 80)> 5 
COND_S = SUBSTR(COND_S ? 8I ) ; 

END; 

1 F COND S -*= ' • 

THEN DO; 

BUFFER = COND S; 

PUT FI LE(COPTREE) EDIT(BUFFER) (CCL(l)t A(80)) 
END; 

PRO: 

#❖❖❖❖/ 

/ # 

GET THE PROCEDURE TO FOLLOW IN THIS BRANCH. 

*/ 

LOC_PTR = ACTIVE -> PROC_P; 

COND S = LOC PTR -> COND; 

TIMES = LOC PTR-> C_NR/80; 

DO K = 1 TO TIMES? 

BUFFER = SUBSTRI COND S, 1,801; 

PUT FILE! COPTREE I ED I T( BUFFER ) ( COL ( 1 ) , A ( 80 ) ) ; 
COND_S = SUBSTR ( COND_S » 8 1 ) ; 

END; 

IF COND S -.= • * 

THEN DOT 

BUFFER = COND_S; 

PUT F I LE ( COPTREE ) E D I T ( BUFF ER ) ( COL ( 1 ) , A ( 80 )) 
END; 

LOC_P TR = ACTIVE -> N_NEXT; 

END; 

/ £ ^ sje >}c^ £ & # ❖ * # 3}C sfc ## * * sjc Jjs# *** # # # # ❖ * sfic * ## 3{c^ # ## # ## ## # / 

/* 

END OF NODES AT A GIVEN LE VE L • ASSOC I ATED WITH ONE 
NODE AT THE NEXT HIGHER LEVEL. DECIDE WHICH NODE TO GO TO 
NEXT. 

*/ 

/ 4c 4c :{c 4< ❖ 4« 4< # 4= :<«>:❖ 4« ❖ 4= 4c # ###4: $:{£:}-.$ 4= 4= 4c 4c4=4c4c4c 4«/ 

BUFFER = * EOC' ; 

PUT FILE (COPTREE) EDIT (BUFFER) (COL( I) » A(80J) ; 

Pi: IF TOP 
THEN DO; 

N ACTIVE = ACTIVE -> RET P; 

ACTIVE = N_ ACT I V E -> P_BRANCH; 

N ACTIVE = ACTIVE; 

ACTIVE = N_ACT I V E -> N_ BRANCH; 

TOP = *0'B; 

END; 

ELSE DO; 

N ACTIVE = ACTIVE -> RET Pi 
ACTIVE = N_ACT I V E -> N_ BRANCH; 

N ACTIVE = ACTIVE; 

ACTIVE = N_ACTIVE -> N_BRANCH ; 

END; 



P2 : IF ACTIVE = NULL 

THEN DO; _ _ 

ACTIVE = N_ ACTIVE -> N_NEXT ; 

P3: IF ACTIVE = NULL 
THEN DO; 

N ACTIVE = N_ACT IVE -> RET_P ; 
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DEPTH = DEPTH-1 ; 

IF DEPTH = 0 
THEN GO TO NFXT_P; 

ACTIVE = N_ACT I VE -> N_NEXT ; 

GO TO P3 ; 

END; 

ELSE DO; 

N ACTIVE = ACTIVE; 

ACTIVE = N_ACT I VE -> N BRANCH; 

GO TO P2 ; 

END; 

END; 

GO TO NEXT_C; 

ND: END; 

f Of. jjc # 5jc # # sje :$c 3{c 5jc ^ ^ ^ # # :£:^c sjc# :£ £ f 

/ ^ 

ALL LEVELS HAVE BEEN RESTORED TO BACK-UP STORAGE. 



/ %)r ■%•/» J/ Jf ^X» vf/ %• ' Os- J# X <sV 

¥ ^ -(** v -r* v ^ nr* ¥• -v* ^ ^ ¥ -r* ^ ^ •¥* 

BUFFER = * EOF • ; 

PUT FILE! COPTREE ) 
RETURN; 

END REFILE; 



' X ^ 



~r* -r* -y* -v 



U 0> ^1- %«< X 4, X U, nV X X *** X Up J# X X 

^ -y* ^ —p* >|< >gv vp ^p y* ^p ^p «Y» 



EDIT! BUFFER} (COL (1) , A(80) ) 



* 



*/ 
❖ / 
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POLISH: PROC (WORK_S); 



- OL- %«, 



v», v- •* Vr »'. a- vf/ »i, -j» j. j. j, v»„ j, / 

v 'r t' *r 'i K v ■T' ■t' ^ 'f' 'r ^ 'i' -r -T'-i' n''r n- t v i' «v* / 



POLISH CONVERTS THE INFIX EXPR 
INTO AN EQUIVALENT POLISH EXPRESSI 
CALl.S THE ROUTINE PREC TO DETERM 
HIERARCHY OF OPERATORS. AFTER THE 
INTO POLISH THE ARGUMENTS ARE REP L 
WHERE THE NUMBER TELLS WHICH POINT 
ARG_P TRS POINTS TO THE NUMBER GEM 
ARGUMENT. 

COPY OF THE INFIX EXP 
- STORES OPERATORS TIL 
INTO THE POLISH STRI 
ST ACK_B - POLISH EXPRESSION OF 



ESS I ON OF THE PROBLEM 
ON OF THE PROBLEM. IT 
I ME THE RELATIVE 
STRING HAS BEEN CHANGED 
AGED BY •# NUMBER* 

FR IN THE ARRAY 
ERATED TO REPLACE THAT 



WORK S - 
STACK A 






RESSION OF THE PROBLEM. 
L TIME TO INSERT THEM 
NG. 

THE PROBLEM 

*/ 

U xA* xj-* xV sU kO <Jy sU ^ *-V ^ Vt* %*'■ ^ Vf ^ ^ vl^ v f / V> Or / 

✓jv #p, ^ -h ^ ^ ^ ^ /jV >|X ✓p. ^ #^s ✓p -p -*p >X ^V, / ( x y 



DCL WCRK_S CHAR (240 1 VARYING; 

DCL FUDGE CHAR<9) VARYING; 

DCL NR FIXED BI N( 15 ) ; 

DCL 0P1 CHAR ( 1 ) INITIAL! 1 •); 

DCL STACK_A CHAR ( 80 ) VARYING; 

DCL S T ACK_B CHAR (240) VARYING; 

DCL OP CHAR ( 1 > ; 

DCL OP2 CHAR (3) VARYING; 

DCL OPNDS C H AR ( 2 6 ) IN IT I AL ( * ABCDEFGhI JKLMNOPQRSTUVWXYZ * ) ; 
DCL PRFC ENTRY ( CH AR ( 1 ) ) RETURNS ( F 1 XED BIN( 15,0)1; 

START: IF WORK_S = " THEN GO T 0 REPLACE; 

ELSE DO; 

/***#*****************:}:*********** f *******#$******* *❖*****«/ 

/ 

GET THE FIRST NON-BLANK CHARACTER IN WORK_S. 

Y/ 

/ ^ Y ^ ifc J>: >Je :{<>);>!«# f 

OP = SUBST R ( W0RK_S ,1,1); 

IF OP = • * 

THEN DO; 

WORK S = SUBST R ( WO RK_S , 2 ) ; 

GO TD START; 

END; 

Y 

/Y 

IF THE CHARACTER IS NOT AN OPERAND THEN IT MUST BE AN 
OPERATOR. GO TO PAREN AND CHECK FOR CLOSING PARENTHESES.. 

❖/ 

/*******:£**:(c*:**********##**:{:***#jM-.*:<=:«^Y**#Y***Y*Y:('YY * 

IF INDEX! OPNDS, OP) = 0 THEN GO TO PARENQ; 

ST ACK„B = STACK B | | OP; 

W0RK_ S = SUBSTRlWORK S,2); 

IF SUBS T R ( W0RK_S , 1 , lT= * • THEN KORK_S = SUBSTR 

( WORK_S , 2 i ; 

/ i[c Jfc#,!* >i« & s}: 5jc ijt :{« ##:{«:{«# I}:## 5<c# ^ ^ $ :|c * y; * ^ ^ t / 

/ Y 

COMPARE OPERATOR IN WORK_S WITH OPERATOR ON ST ACK_A . 
IF LESS THANrTHEN REMOVE OPERATOR FROM ST ACK_A AND ADD TO 
ST ACK_B . 

*/ 

/ # # 3j< ## # # # 5j< £ £ 3$C # ?J? # 5j< Sjc ## 5»C ## % 5^5^ £ # # £ # # # * ## & # ❖ ❖ / 

LOOP: IF ( WORK_S = •»)! (STACK A = ") i ( PREC( SUBSTR 

( WORK_S , 1 ,1) ) >PREC( SUBSTR (STACK_A, 1,1) ) ) 

THEN GO TO START; 

ELSE DO; 

ST ACK_B = STACK B I I SUBSTR ( STACK_A , 1 , 1 ) ; 
ST ACK_A = SUBSTR ( ST ACK_A , 2); 

GO TO LOOP; 

END; 
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f 'I' v -r v 'r v t ^ ^ •r*r*{' V ^ ijc v v ^ v 'I' n*- ^ ^ -v 'r ^ v *r 'J' ^ V V 'f' V V ^ V *1^ v V -r *r ijj ^ ^ 5/t V v v 3jc ^ ^ 

/❖ 

IF OPERATOR IS NOT A * ) ■ THEN CHECK FOR END OF 
STRING. IF NOT END OF STRING THEN ADD OPERATOR TO STACK_A„ 

*/ 

/ %L» %A* 'X* \l» vL 4^ 4f 4# O-* %L w 4.' 4/ 4-» 4/ 4/ 4/ 4v 4> 4 4^ 4< 4f 4/ 4-» 4f 4/ 4# 4/ 4^ O-* 4.* \L 4y sO 4>* 4/ 4» 4/ 4V 4<» 4-r 4/ 4/ 4# 4y» 4r* %V 4^ / 

-V* 'r ^ v ^ 'r v *r T ^ nr v ^ 'r t V ^ ir ^ t* ^ t v ^ -v* ^ <v« -r -v ^ ^ v -v* v t 4 nr* -r v y* ^ ? r / 

PARENQ: IF SUBSTR (WORK_S, I, I) ->= •)« 

THEN DO; 

IF SUBSTR (WORK_S»L,l) = 1 ;• 

THEN DO; 

ST AC K_B = ST ACK_B ! ! SUBSTR 

( STACK_A, 1 , 1 ) ; 

STACK_A = SUBSTR (STACK A, 2); 
END; 

STACK A = SUBSTR ( WO RK_S ,1,1) I I STACK_ A ; 
WORK 3 = SUBSTR (WORK S,2); 

GO TO START; 

END; 

ELSE DO; 

STACK_A = SUBSTR (STACK_A,2); 

WORK_S = SUBSTR ( WORK_S , 2 ) ; 

GO TO LOOP; 

END ; 

END; 






•* 4/ 4^ 4-» 4/ ■«» 






/❖ 



' J f ■A' ^ 'V ^ OO »V J- .t >1, V' *>v -V >v >*- oJL. -X- «JL. .ju %JU -A* 'V OU / 
t-t t> t v 'r v v 'r v v v v ^ ^ v 'f -r v *c v or v A' v v f 



REPLACE ALL ARGUMENTS BY •# NUMBER* 



*/ 

REPLACE: DO WHILE (OP -,= • = *>; 

OP = SUBSTR (STACK B, 1,11; 

STACK_B = SUBSTR ( ST ACK_B» 2 ) ; 

IF OP >= ‘A* C OP <= e Z* 

THEN DO; 

NR = INDEX (OPNDS, OP) ; 

FUDGE = NR; 

OPI = 1 * ; 

DO WHI LE (OPI = • * ) ; 

OPI = SUBSTR ( FUDGE , 1, 1) ; 

IF OPI=* * 

THEN FUDGE = SUBSTR ( FUDGE , 2 ) ; 

END ; 

OP 2 = * #« | I FUDGE ; 

WORK_S = WORK.S || CP2; 

GO TO BOTTOM; ' 

END; 

WORK_S = WORK_S II OP; 

BOTTOM : END; 

RETURN; 

PREC: PROC(X) FIXED BIN(15,0) ; 

DCL X CHAR ( I ) ; 

DCL H CHAR ( 8 ) INITIAL (**/+-=);(«); 

DCL HNUM ( 8 ) FIXED BIN(15,0) I N I TI AL ( 3 , 3 , 2 , 2 , 2 , 1 , l , 0 ) ; 
RETURN ( HNUM ( INDEX(H»X) ) ) ; 

END PREC; 

END POLISH; 
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B I G_POL: PROC ( COND_S ) ; 



f v v v v V »r- 'T' ^ v 'i' ^ sjv jji y J/i ^ ^ Jjv <{i <J« <{» <{f 5{» ^ jJc s{c 5p jJc ijc 5{s ijc *{c )Jc <{» <(% y 3^c Jjc ^ j{c j{c J^C 3ji ^ jjt jjc jJc sjc J 



/* 



BIG POL CONVERTS THE CONDITION 
whether""a node is APPLICABLE, INTO 
OF THE SAME STRING AND PASSES THIS 
INTERPRETATION. THE CONDITION LIST 
AS A PARAMETER. THE ROUTINE HIER IS 



LIST, SPECIFYING 
A POLISH EXPRESS 
ON TO CON_ I NT FOR 
IS PASSED TO B I G_ 
USED TO CHECK TIT 



OPERATIONS. THE ROUTINES C H_R AT AND 



CONV 

«JU f 

* A 



ION 

POL 

E 

ERT, 



HIERACHY OF 

CONVERT THE DOUBLE-CHARACTER OPERATORS, *//', . 

•>=*, INTO A SINGLE CHARACTER. 

COND_S - CONTAINS THE CHARACTER STRING 
ST ACK_A - STORES OPERATORS UNTIL THEY ARE TO BE 
INSERTED IN THE POLISH STRING 
ST ACK_B - CONTAINS THE POLISH STRING 
OPAND - CONTAINS THE OPERAND TO BE REMOVED FROM 
COND_S AND ADDED TO STACK B 

*/ 

/ J/ vl< xV ^ \V sV ^ V « x 1 / 4-* ^ 4/ xL sV xl< x 1 ^ 4/ -JU 4> xC xL xl< xL> xV xL* OU xV xL **V xV 4^ x*# ^ xU 4/ x^^- %JU 4^ xJU %A* 4>- x*< x/# / 

^ ^ ^ ^ 'Y' '*■' v -Y*. •’V s *Y • T* ^ Y > Y' Y O x ^ •'f* <r* ^ ^ yyx Y Y* V ^r- 'P -v Y ^ v ^ ^ /p >|X ^x / 4 x /Y* <V 'p Y -|N ^x y 

DCL ANS CHAR ( 1} ; 

DCL TRUE BIT (1) ; 

DCL( STACK_A, STACK B,COND_S) CHAR ( BO » V ARY I NG ; 

DCL HIER ENTRY (CFlAR(L)) RETURNS ( F I XE D !3IN( 15,01); 

DCL OPAND CHAR ( 10 ) VARYING; 

STACK_A = 

ST ACK B = • * ; 

TOP : I F CDND_S = •• THEN GO TO FINI ; 

ELSE DO? 

DO WHILE(SUBSTR( C0ND_S ,1,1) =‘ *); 

CO ND_S = SUBSTR ( COND_S , 2 ) ; 

END; 

if. if if if if * if if if if if if if 'if if i< if # i< if if if if if * * i' icififificififififififififific/ 

/if 

WHEN AN OPERATOR IS ENCOUNTERED, GO TO PAREN TO SEE 
IF IT IS A CLOSING PARENTHESES. 

if / 

/ if *** if *if ***** * if** ****** *** ************* ifififif ******/ 

IF SU BSTR ( C0ND_S ,1,1) < 'A* THEN GO TO PAREN; 
OPAND = • « ; 

/ * if if ifififif if if if if if if if ifififif if if if * *** ** **** *** **** ********* * * ** ****** / 

/if 

THIS SEGMENT OF CODING REMOVES THE OPERANDS FROM 
C0ND_S AND PLACES THEM IN STACK_B WITH A COMMA TO MARK 
THE END OF AN OPERAND. 

if/ 

5jc# %C ^ * # * # ?r iz # # # ### # * # 5,*f # # # £ # £ # & * # # # * # ## # # # # / 

CONT : DO WHILE ( SUBSTR <COND_S , l » 1 > >=*A 1 ) ; 

OPAND = OPANDI i SUBSTR (COND_S, 1 , I ) ; 

COND_S = SUBSTR ( C OND_S , 2 ) ; 

END; 

IF SUBSTR ( COND_S ,1,1) = '.' 

THEN DO; 

OPAND = OPAND | | • . « ; 

COND S = SUBSTR i C0ND„S ,2 ) ; 

GO TO CONT; 

END; 



STACK B = STACK_B I j OPANDI | ; 



l ; 



LOOP: DO WHILE (SUBSTR ( COND S ,1,1) = • 

C 0ND_S = SUBSTR (C0ND_S, 2) ; 

END; 

CALL CH_RAT; 
f 

CHECK HI ERARCHE Y OF OPERATOR WITH OPERATOR ON TOP OF 
STACK A. IF IT IS LESS THAN OPERATOR ON ST ACK_A IT IS 
MOVED - TO STACK B AND LOOP TO CHECK NEXT OPERATOR ON 
STACK A. ELSE GO TO TOP AND START AGAIN. 

if/ 

/*********************************************************/ 
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/* 



LOOP 1 : I F (COND S =*’) I ( ST ACK_A = •') | 

( H I ERTSU BSTR ( COND_S » L , l ) ) > HI ER ( SUBSTR 
(STACK_A, 1,1) ) ) THEN GO TO TOP; 

ELSE DO; 

STACK_B = STACK_B| |SUBSTR(ST ACK_A ,1,1) 
ST ACK_A = SUBSTR( STACK_A,2) ; 

GO TO LOOP 1 ; 

END; 



U# vC- vL- ^ ^ ^ vt- ></ ^ ^ ^ ^ X X X X X X X X X X X X X X X X X X vC X X X X 

^ ^ ^ <y* ^ ^ ^ Ar* "r ^ Af* < TT k At y* ^ ^ y* *v nr* 'Y' or y* y •v* y y y y y y y y y y ' r y y y* y 



/ 



IF OPERATOR IS NOT A CLOSING PARENTHESES, THEN ADD 
OPERATOR TO ST ACK_ A AND START AGAIN* IF IT IS, REMOVE 
OPENING PARENTHESES FROM STACK A AND CHECK TO SEE IF NEXT 
OPERATOR IS A . THEN GO TO LOOP TO CHECK OPERATOR 
FOLLOWING THE CLOSING PARENTHESES. 



/* 



*/ 

r X X X X X X \l * X x X X X X X X X X X X X X X X X X v'/ X X X X sU X X xU X X X X* X X X X X X X X X X <J-* X / 
» Y Y Y Y Y ^ " Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y ^p -»p A N Y ^ ' <p *-p ^p fp y <p Y Y Y Y Y Y Y ^ * Y Y "i ’ Y Y *v 'p / 

PAREN : IF SUBSTR ( COND_S , L , I ) -.= « ) * 

THEN DO; 



CALL CH_RAT; 

STACK A = SUBSTR (COND 
COND '5 = SUBSTR( COND_ 
GO T'O TOP; 



S , L , 1 ) 
, 2 ) 



I | ST ACK_A ; 



end; 

ELSE DO; 

COND S = SUBSTR (CONORS ,2) ; 

STACR_A = SUB STR ( ST ACK_A? 2 ) ; 

IF SUBSTR(STACK_A, 1,1) = •-.* 

THEN DO; 

ST ACK_B = STACK B | | SUBSTR 
(STACR_A, 1, 1 ) ; 

ST ACK_A = SUBSTR ( STACK_A, 2 ) ; 
END; 

GO TO LOOP; 



END; 

END; 

CH_RAT : PROC; 

DCL CONVERT ENTRY < CHAR ( 2 ) J RETURNS (CHAR(l)I; 

DCL OPTRS CHAR (2); 

DCL C1PTR CHARC I) ; 

IF COND S = “ THEN RETURN; 

IF SU BST R ( COND_S , L » 1 ) = * / ‘ I S'JBSTR(COND S,l,l)='** I 
SUBSTR(COND_S,l,l )=•>' I SU BSTR ( COND_S , 1 v I ) = ' < e 
THEN DO; 

IF SUBSTR ( COND S, 2, !)='/' | SU B STR ( COND_S , 2 , L) 

= '** I SUBSTTU COND_S ,2 , L ) = •= 1 
THEN DO; 

OPTRS = SUBSTR( COND_S, 1,2).; 

COND_S = SUBSTR (COND_S, 3) ; 

OPTR = CONVERT(OPTRS) ; 

COND_S = OPTR || COND_S; 

END; 

END; 

RETURN; 

CONVERT: PROC(X) CHARC1); 

DCL X CHARI 2) ; 

DCL COMPARE CHAR(8> I N I T I AL (•**//>=<= e ) ; 

DCL REPLACE CHAR(8) INrTIAL('$ ? % : ‘) J 

RETURN ( SUBST R ( REPLACE, I ND5X ( COMP ARE, X ) ,1)1; 

END CONVERT; 

END CH RAT; 

H I ER : PROClX ) FIXED BIN(15); 

DCL X CHAR ( 1 ) ; 

DCL H CHAR ( 1 7 ) I N I T I AL ( • -./*+-$?*: <>=L | );(*) ; 

DCL HNUM (17) FIXED BIN(15)INITIAL(7,6,6,5,5,4,4,4,4»4,4,4 
RETURN ( HNUM ( INDEX ( H , X ) ) ); 

END H I ER ; 

F I N I : CALL CON_I NT ( ST ACK_B , TRUE ) ; 

END big_pol; 
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CON_I NT : PROC ( COND_S, TRUTH ) ; 



/❖**#❖❖#* * ❖❖ * * i? %■ Or- if. $■ # 

/* 






C 0 N_ I N T INTERPRETS THE LIST OF CONDITIONS, FOR THE 
APPLICABILITY OF NODES IN THE TREE, TO DETERMINE IF THE 
NODE SHOULD BE SELECTED IT OPERATES ON THE POLISH 
EXPRESSION OF THESE CONDITIONS WHICH IS PASSED AS A 
PARAMETER, AND IT RETURNS THE TRUTH VALUE OF THE LIST OF 
CONDITIONS. THE MAIN VARIABLES USED BY CON INT ARE: 

COND_S - WHICH CONTAINS THE POLISH EXPRESSION OF THE 
LIST OF CONDITIONS. 

STACK - WHICH IS A PUSHDOWN STACK CONTAINING THE 

YTRUTIH VALUE OF CONDITIONS IN THE STRING OR 
THF LOCATION OF WHERE ELEMENTS OF CONDITIONS 
ARE STORED. 

TOP - WHICH IS THE NEXT ITEM TO BE ADDED TO THE STACK 
OP_S T R -WHICH STORES ELEMENTS OF CONDITIONS IN THE 
LIST. 

TRUTH - THE TRUTH VALUE OF THE STRING. 



Sr#***##:}-*######*:}'###*# sic#### 



■ / 
/ 



DCL COND_WORD( 10 I CHAR ( 2 ) ; 

DCL TRUTH BIT(l); 

DCL CON f) S CHARI240I VARYING; 

DCL ( T OP , OPN D ) CHAR(IO) VARYING; 

DCL STACK CHAR ( 2 ) CONTROLLED; 

DCL OPTRS CHAR (14) INITIAL! ’ £ I -<>=<?%: $+-*/ ' I ; 

DCL ( OPTR , CH ARC ) CHAR! I); 

DCL NR_C CHAR(R) VARYING; 

DCL ( FLAG, FLOG I BIT(l); 

DCL DIGET FIXED BIN! 15 I ; 

DCL PERIOD FIXED BIN! 15); 

DCL (NR, NR 1 , NR_2 , OPT R NR) FIXED BIN! 15); 

DCL KEY CH£R(2); 

DCL (LAB! 10) ,LAB_L( 0: 14) ,LBL( 14) ) LABEL*, 

DCL OP_STR( 10:25) FIXED BIN(15); 

NR = 10 ; TOP = ' • ; 

GET: OPND = ‘ 1 ; 

IF COND S = » • 

THEN G 0"~ T 0 LAB_L ( 0 ) ; 

/ ^ ^ ^ n £ T o' v v v ^ ❖ v ^ 'r ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ n' ^ v ^ ^ v V-r / 

/* 

THIS SEGMENT OF CODING EXTRACTS THE OPERANDS OF THE 
CONDITIONS FROM COND_S. 

*/ 

* * # * :Jc # # # # # * if. ** # & %c jJc # # * ## * # * # / 

GOT : DO WHILE ( SUBSTR ( COND_S , 1 , 1 ) >= 1 A * ) ; 

CHARC = SUBSTR! CONO_S ,1,1); 

OPND = OPND || CHARC; 

COND_S = SUBSTR ( COND_S ? 2 ) ; 

END; 

IF SUBSTR ( COND_S ,1,1) ='.• 

THEN DO; 

OPND = OPND || ‘ . * ; 

COND S = SUBSTR (COND_S ,2 ) *, 

GO TO GOT; 

END; 

OPTR = SUBSTR (COND S ,1,1); 

COND S = SUBSTR(C00D_S,2 ) ; 



' V 
' An 



C * 5JC £ # ^ ❖ # # * ❖ # # # ^ ❖ = 



si- -JU V. «*/■ J/ •4 



V -v 'f' 'I s 'C~ 






f ^ 

A COMMA INDICATES THE END OF A KEY WORD AND A CHECK 
IS MADE TO SEE IF A TRUTH VALUE CAN BE ASSIGNED TO THAT 
KEY WORD. 

❖ / 
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1*11 <=»z 



,2 ) 



IF OPTR = • , • 

THEN DO; 

IF SUBSTR I OPND * 

THEN DO; 

KEY = SUBSTRI OPND, 1 
DO I = I TO 10; 

IF KEY = COND WORD! 
THEN GO TO LABI I ) ; 
END; 

LABI 1 ) : IF S_ANS = M. ANS 



LABI 2) 



I ) 



THEN 


OPND = 


8 1 


t 


t 


ELSE 


OPND = 


* 0 


t 


T 


GO TO 


CONT; 








IF S 


ANS -«= 


M ANS 


THEN 


OPND = 


e 1 


J 


* 


ELSE 


OPND = 


* 0 


( 


* 


GO TO 


CONT; 








IF S 


RATE = 


2 






THEN 


OPND = 


• 1 


9 




ELSE 


OPND = 


* 0 


( 


y 


GO TO 


CONT; 








IF S 


RATE = 


1 






THEN 


OPND = 


• 1 


K 


y 


ELSE 


OPND = 


1 0 


C 


y 


GO TO 


CONT; 








I F S 


RATE = 


0 






THEN 


OPND = 


8 1 


s 


t 


ELSE 


OPND = 


' 0 


« 


y 


GO TO 


CONT; 








IF PROB DIF 


= 3 






THEN 


OPND = 


• 1 


i 




ELSE 


OPND = 


f 0 


c 


y 


GO TO 


CONT; 








IF PROB DIF 


= 2 






THEN 


OPND = 


• 1 


t 


y 


ELSE 


OPND = 


8 0 


f 


y 


GO TO 


CONT; 








IF PROB DIF 


= 1 






THEN 


OPND = 


8 1 


i 


y 


ELSE 


OPND = 


8 0 


i 


y 



LAB ( 3 I 



LABIA) 



LABI 5) : 



LAB I 6 ) 



LABI 7) 



LABI 8 ) 



/ ^ 

IF THE KEY WORD, SANS OR MANS * IS ENCOUNTERED, 
IT IS CHECKED TO SEE IF IT IS QUALIFIED. THE VALUE 
INDICATED BY THIS OPTIONALLY QUALIFIED KEY WORD IS P 
IN OP STR AND THE VALUE OF OPND IS CHANGED TO THE 
LOCATION IN OP_STR WHERE THE VALUE IS LOCATED. 

if if i< 



THEN 

LACED 



*/ 



LABI9) .’PERIOD = I NDE X I OP ND , • . • ) ; 

FLAG = ' 0 ' B ; FLOG = ' 0 8 B ; 

IF PERIOD = 0 
THEN DO; 

OP STR I NR ) = S_ANS; 

F LSG = * 1 8 b; 

GO TO CONI; 

end; 

ELSE DO; 

DIGET = SUBSTRIOPNDjPERIOD+1) ; 
FLOG = 8 1 8 B ; 

0 P_ST R I NR ) = S_ANS„C(DIGET); 

GO TO CONI ; 

END; 

CONI : NR_C = NR; 

DO WHILE! SUBSTRI NR_C, 1 ,1)=* * ) ; 

NR_C = SUBSTR (NR_C» 2); 

END; 

OPND = NR_C ; 

NR = NR + l; 

IF NR > 25 

THEN DISPLAY! ’OUT OF STORAGE'); 
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) ; 



GO TO cont; 

LAB( 10) -.PERIOD = I NDE X ( OPND , * . ' > ; . 

IF PERIOD = 0 
THEN IF FLOG 

THEN OP_STR ( NR )= M_ANS_C ( D I GET ) ; 

ELSE OP_STR ( NR ) = M_ANS; 

ELSE DO; 

DIGET = SUBSTR(OPNDvPERIOD+l ) ; 

IF FLAG 
THEN DO; 

OP_STR( TOP ) =S_ANS_C( DIGET ) ; 
OP_STR ( NR J =M_ANS C( DIGET); 

end; 

ELSE OP_STR(NR) -- M_ANS_C ( D IGET ) ; 
END; “ 

NR_C = NR; 

DO WHILE! SUBSTR (NR C,ltU = • 

NR C = SUB STR ( Nli_C » 2 ) ; 

END; 

OPND = NR_C; NR = NR+I ; 

IF NR>25 THEN DISPLAY! 'OUT OF STORAGE*); 
GO TO CONT; 

END; 

ELSE DO; 

NR C = NR ; 

DO WHILE! SUBSTR! NR C,l,l)= ' 

NR_C = SUB STR ( NR_C » 2 ) ; 

END; 

OP STR ( NR ) = OPND; 

OPHD = NR C; NR = NR + 1; 

IF NR > 25 THEN DISPLAY! ‘OUT OF STORAGE*) 

END; 

/ % 4 *» V/ O* V/* ^ Of 0< O^ O. O/ sV Of O^ Of Of Of ♦V Of *!✓ %V Of O^ O/ / 

v v ^ ^ ^ ^ v v -r- ¥ ¥ r v ¥ *nr* V ¥ ir- ¥ v ir¥ nn¥ ¥ # r ^ f 

/* 

THE PRESENT VALUE OF TOP IS ADDED TO STACK AND THE 
VALUE OF OPND BECOMES TOP. 

*/ 

^ -if >|i >Jc ;',r sjc sj; # ^ 5^ :£ jjc # f 

CONT: ALLOCATE STACK; 

IF TOP -»= * * 

THEN STACK = SUB STR ( TOP , L , 2 ) ; 

TOP = OPND; 

GO TO GET; 

END; 

f if. 

WHEN THE OPERATOR IS NOT A COMMA, THEN IT IS A 
RELATIONAL OPERATOR AND CONTROL IS PASSED TO THE SEGMENT 
OF CODE WHICH HANDLES THAT OPERATION. 

*/ 

ELSE GO TO LAB_L( I NDEX ( OPTRS t OPTR ) ) ; 

L AB_L ( I) : 

IF STACK = * 1 » £ TOP = * I * 

THEN FREE STACK; 

ELSE DO; 

TOP = *0 1 ; 

FREE STACK; 



END; 

GO TO GET; 

LAB L ( 2 ) : 

TF STACK = * 1 * I TOP = ' 1 * 
THEN TOP = * 1 * ; 

ELSE TOP = « 0 * ; 

FREE STACK; 

GO TO get; 

LAB_L( 3) : 

IF TOP = '1 * 

THEN TOP = *0 *; 

ELSE TOP = ' 1 * ? 

GO TO GET ; 

LAB_L ( 4 ) : 
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OP ST R ( TOP ) 



IF OP_STR ( STACK! > OP STR(TOP) 

THEN TOP = • I ' ; 

ELSE TOP = '0 ' ; 

FREE STACK; 

GO TO GET ; 

LAB L( 51 : 

IF OP STR< STACK) = 

THEN TOP = * I ' ; 

ELSE TOP = *0 • ; 

FREE STACK; 

GO TO GET; 

LAB_L ( 6 ) : 

IF 0P_ STR (STACK ) < OP STR(TOP) 

THEN TOP = ( 1 • ; 

ELSE TOP = *0 ‘ ; 

FREE STACK; 

GO TO GET; 

LAB L( 8) : 

If op_str(stacki >= op stritop) 

THEN TOP = « 1 « ; 

ELSE TOP = • 0 ' ; 

FREE STACK; 

GO TO GET; 

L AB_L ( 9 ) : 

IF OP_ST R { STACK ) 

THEN TOP = ' 1 ' ; 

ELSE TOP = *0 •; 

FREE STACK; 

GO TO GET; 

LAB L( 71 : I.A6_L( 10) : 

IF MOD ( 0P_5TR{ STACK) t OP_STR(TOP) ) = 
THEN TOP = ' 1 • ; 

I * 



<= 0 P_STR (TOPI 



: 0 



ELSE TOP = 

FREE STACK; 

GO TO GET; 

LAB L ( 1 1 ) : 

OP_STR( TOP ) 

FREE STACK; 

GO TO GET; 

LAB L( 12 } : 

OP_STR ( TOP ) 

FREE STACK; 

GO TO GET; 

LAB_L( 13) : 

UP_STR (TOP) 

FREE STACK; 

GO TO GET; 

LAB L ( 14 ) : 

OP_STR( TOP) 

FREE STACK; 

GO TO GET; 

LAB_L( 0) : 

f V V V o' 'I' ^ n' v v v ^ 'r ^ ^ ^ 'r V 'r 'C- W 'r V ^ ^ -p v ^ ^1' v o' 'l* v 'I' <i- 'r 't' 'i' -r 'r 'r 'l' ^ 'r / 

/* 



= OP STR { STACK ) + OP STR(TOP) 



= OP„STR( STACK)- OP_STR(TOP) 



= OP_STR ( STACK ) * OP_STR<TOP); 



= OP_STR( STACK) / OP_STR( TOP).; 



WHEN COND_S IS NULL f THE INTERPRETATION IS COMPLETE 
AND TOP CONTAINS THE TRUTH VALUE OF THE STRING. 



*/ 



^# 5 *' ❖/ 



I F TOP = 4 1 
THEN TRUTH = *1'B; 
ELSE TRUTH = • 0‘B; 
END CON INT; 
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